Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

ComboBox und MSHFlexGrid
Autor: Geo
Datum: 09.12.07 16:14
Über ComboBox Txtdatei aufrufen und im MHSGrid nur alle Zahlenreien anzeigen die im Text der ComboBox steht. Bis jetzt fülle ich die Grid nur über das Datum von - bis. Mein Versuch scheitert schon daran über der Auswahl der ComboBox das Grid zu füllen. Den mein Wunsch wäre es, zusammen das Grid zu füllen. ComboBox und Datum , So das nur alle Nr. die im Text der Combo mit dem Datum von - bis im Grid angezeigt werden. Für Hilfe wäre ich sehr Dankbar. Geo Private Sub Form_Load() DTPicker1.Value = CDate("01.01.1900") DTPicker2.Value = CDate("31.12.3000") DTPicker1.Enabled = False DTPicker2.Enabled = False PfadDatei = AppPathGet & "Input.txt" DatenEinlesen Combo_Lesen End Sub Public Sub Combo_Lesen() sFilename = App.Path & "\ AVV Nummern.txt" Combo_Read sFilename End Sub Public Sub Combo_Read(ByVal sFilename As String) Dim F As Integer Dim sLine As String With Combo1 .Clear If Dir(sFilename) <> "" Then F = FreeFile Open sFilename For Input As #F While Not EOF(F) Line Input #F, sLine .AddItem sLine Wend Close #F End If End With End Sub Private Sub Input1_Click(Index As Integer) DTPicker1.Enabled = False DTPicker2.Enabled = False Select Case Index Case 0 DTPicker1.Value = Date DTPicker2.Value = Date DatenEinlesen Case 1 DTPicker1.Value = CDate("01.01.1900") DTPicker2.Value = CDate("31.12.3000") DatenEinlesen 'neu oder behalten Case 2 DTPicker1.Value = Date DTPicker2.Value = Date DatenEinlesen DTPicker1.Enabled = True DTPicker2.Enabled = True End Select End Sub Private Sub DTPicker1_LostFocus() DatenEinlesen End Sub Private Sub DTPicker2_LostFocus() DatenEinlesen End Sub Public Sub DatenEinlesen() Dim SatzNr As Long If DTPicker1.Value > DTPicker2.Value Then DTPicker2.Value = DTPicker1.Value Grid.Rows = 2 Grid.Clear Grid.TextMatrix(0, 1) = "Datum" Grid.TextMatrix(0, 2) = "Kfz-Kennz." Grid.TextMatrix(0, 3) = "Beförderer" Grid.TextMatrix(0, 4) = "BS-NR / ÜS-NR" Grid.TextMatrix(0, 5) = "Nachweis" Grid.TextMatrix(0, 6) = "Inhaber" Grid.TextMatrix(0, 7) = "fest" Grid.TextMatrix(0, 8) = "flüssig" Grid.TextMatrix(0, 9) = "schlammig" Grid.TextMatrix(0, 10) = "gesamt-Gew." For ztr = 1 To 10 Grid.ColAlignmentFixed(ztr) = 4 Next Open PfadDatei For Random As #1 Len = Len(Datensatz) For SatzNr = 1 To LOF(1) / Len(Datensatz) Get #1, SatzNr, Datensatz If Datensatz.Datum >= DTPicker1.Value And Datensatz.Datum <= DTPicker2.Value Then Grid.AddItem "" Grid.TextMatrix(Grid.Rows - 1, 0) = Trim$(Datensatz.AVV) Grid.TextMatrix(Grid.Rows - 1, 1) = Datensatz.Datum Grid.TextMatrix(Grid.Rows - 1, 2) = Trim$(Datensatz.Kennz) Grid.TextMatrix(Grid.Rows - 1, 3) = Trim$(Datensatz.Beförderer) Grid.TextMatrix(Grid.Rows - 1, 4) = Trim$(Datensatz.BSNR) Grid.TextMatrix(Grid.Rows - 1, 5) = Trim$(Datensatz.Nachweis) Grid.TextMatrix(Grid.Rows - 1, 6) = Trim$(Datensatz.Inhaber) Grid.TextMatrix(Grid.Rows - 1, 7) = Trim$(Datensatz.fest) Grid.TextMatrix(Grid.Rows - 1, 8) = Trim$(Datensatz.flüssig) Grid.TextMatrix(Grid.Rows - 1, 9) = Trim$(Datensatz.schlammig) Grid.TextMatrix(Grid.Rows - 1, 10) = Trim$(Datensatz.gesamtGew) Grid.TextMatrix(Grid.Rows - 1, 11) = SatzNr End If Next Close #1 If Grid.Rows > 2 Then Grid.RemoveItem 1 End If End Sub

ComboBox und MSHFlexGrid	717	Geo	09.12.07 16:14
Re: ComboBox und MSHFlexGrid	452	Geo	11.12.07 17:42

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen