Combo/list-box med data fra .dat fil

Hvad er datarec? En kontrol eller fil eller hvad.

Det er ikke mig der har lavet koden!
Måske kan det her hjælpe??


Public Sub Opdater()
Dim lCount As Integer

  With objScroll
      .TabStop = False
      .LargeChange = 150
      .Min = 0
      .Max = CInt(UBound(DataRec.ArrData))
      Me.Caption = "Type Database " & CStr(.Value) & " af " & CStr(.Max) 'Forms caption
      If .Max = 0 Then
        .Enabled = False
        cmdDelete.Enabled = False
          Else
        .Enabled = True
        cmdDelete.Enabled = True
      End If
  End With

  With DataRec
      lCount = CInt(objScroll.Value)
      txtData(0).Text = .ArrData(lCount).bytData1
      txtData(1).Text = .ArrData(lCount).bytData2
      txtData(2).Text = .ArrData(lCount).bytData3
      txtData(3).Text = .ArrData(lCount).bytData4
      txtData(4).Text = .ArrData(lCount).bytData5
  End With
End Sub

Nope, det hjælper mig ikke. Måske der kommer andre forbi som kan hjælpe :-)

Ok

Hvorfor bruger du en kode du ikke selv har skrevet - tror du ikke det er hurtigere at skrive en kode der gør det du vil have den til at gøre selv?

Du får i hvert fald lettere ved at finde fejl bagefter :o)

madsrh123 < Det vil nok hjælpe hvis man kan se hele koden..
Hele koden : http://hjem.get2net.dk/sjh/eksperten/299869/
Brugt her : http://www.eksperten.dk/spm/299869

Public Sub Opdater()
Dim lCount As Integer

  With objScroll
      .TabStop = False
      .LargeChange = 150
      .Min = 0
      .Max = CInt(UBound(DataRec.ArrData))
      Me.Caption = "Type Database " & CStr(.Value) & " af " & CStr(.Max) 'Forms caption
      If .Max = 0 Then
        .Enabled = False
        cmdDelete.Enabled = False
          Else
        .Enabled = True
        cmdDelete.Enabled = True
      End If
  End With

  With DataRec
      lCount = CInt(objScroll.Value)
      txtData(0).Text = .ArrData(lCount).bytData1
      txtData(1).Text = .ArrData(lCount).bytData2
      txtData(2).Text = .ArrData(lCount).bytData3
      txtData(3).Text = .ArrData(lCount).bytData4
      txtData(4).Text = .ArrData(lCount).bytData5
     
      Combo1.Clear ' <- ComboBox
      'eller
      List1.Clear ' <- ListBox
      For lCount = 1 To UBound(.ArrData)
        Combo1.AddItem CStr(.ArrData(lCount).bytData1) ' <- ComboBox
        'eller
        List1.AddItem CStr(.ArrData(lCount).bytData1) ' <- ListBox
      Next
  End With
End Sub