Hallo,
ich lade mit dem Code (s. Auszug unten) viele Werte in eine FlexGrid und lasse sie am Schluss alle darstellen.
Jetzt möchte ich gerne zwei TextBoxen einrichten, die eine Eingabe eines Datums ermöglichen, so dass nur dieser Bereich in dem Grid angezeigt wird.
Ich habe das Datum auch im Array. Man könnte ja in der for - Schleife die TextBox einbauen, aber da kann ich ja dann nur Werte (die Zeilen) angeben, und nicht das Datum.
Könnt ihr mir da weiterhelfen?
Außerdem versuche ich gerade noch eine Progressbar zu erstellen die beim Füllen des Grids den Fortschritt anzeigt. Das bekomm ich irgendwie auch nicht hin.
With FormTab_E33.FGrid1
.Clear
.Cols = 18
.Rows = UBound(Tabelle) + 2
.FixedRows = 1
.FixedCols = 2
.ColWidth(0) = 1050
.ColWidth(1) = 900
'Legt die Spaltenbreite fest
For n = 2 To FormTab_E33.FGrid1.Cols - 1
FormTab_E33.FGrid1.ColWidth(n) = 750
Next n
.TextArray(0) = "Datum"
.TextArray(1) = "Uhrzeit"
.TextArray(2) = "P~ 134m"
.TextArray(3) = "P-- 134m"
.TextArray(4) = "P+ 134m"
Zeile = 1
For i = 0 To UBound(Tabelle)
'''''''''''Leistung 134m, E33 durchnittlich''''''''''''''''''''
If Tabelle(i).v134d <= 2 Or Tabelle(i).v134d >= 28 Then
Leistung134d = 0
ElseIf Tabelle(i).v134d > 2 And Tabelle(i).v134d < 13 Then
Leistung134d = Round(((101325 / (287.058 * (273.15 + Tabelle( _
i).Tempd))) / 1.225) * 0.0036568627 * (Tabelle(i).v134d) ^ 6 _
- 0.16184351 * (Tabelle(i).v134d) ^ 5 + 2.7599208 * (Tabelle( _
i).v134d) ^ 4 - 23.328312 * (Tabelle(i).v134d) ^ 3 + _
108.05321 * (Tabelle(i).v134d) ^ 2 - 253.48439 * (Tabelle( _
i).v134d) + 235.95231, 1)
ElseIf Tabelle(i).v134d >= 13 And Tabelle(i).v134d < 28 Then
Leistung134d = 335
End If
'''''''''''Leistung 134m, E33 minimal''''''''''''''''''''
If Tabelle(i).v134min <= 2 Or Tabelle(i).v134min >= 28 Then
Leistung134min = 0
ElseIf Tabelle(i).v134min > 2 And Tabelle(i).v134min < 13 Then
Leistung134min = Round(((101325 / (287.058 * (273.15 + Tabelle( _
i).Tempd))) / 1.225) * 0.0036568627 * (Tabelle(i).v134min) ^ _
6 - 0.16184351 * (Tabelle(i).v134min) ^ 5 + 2.7599208 * ( _
Tabelle(i).v134min) ^ 4 - 23.328312 * (Tabelle(i).v134min) ^ _
3 + 108.05321 * (Tabelle(i).v134min) ^ 2 - 253.48439 * ( _
Tabelle(i).v134min) + 235.95231, 1)
ElseIf Tabelle(i).v134min >= 13 And Tabelle(i).v134min < 28 Then
Leistung134min = 335
End If
'''''''''''Leistung 134m, E33 maximal''''''''''''''''''''
If Tabelle(i).v134max <= 2 Or Tabelle(i).v134max >= 28 Then
Leistung134max = 0
ElseIf Tabelle(i).v134max > 2 And Tabelle(i).v134max < 13 Then
Leistung134max = Round(((101325 / (287.058 * (273.15 + Tabelle( _
i).Tempd))) / 1.225) * 0.0036568627 * (Tabelle(i).v134max) ^ _
6 - 0.16184351 * (Tabelle(i).v134max) ^ 5 + 2.7599208 * ( _
Tabelle(i).v134max) ^ 4 - 23.328312 * (Tabelle(i).v134max) ^ _
3 + 108.05321 * (Tabelle(i).v134max) ^ 2 - 253.48439 * ( _
Tabelle(i).v134max) + 235.95231, 1)
ElseIf Tabelle(i).v134max >= 13 And Tabelle(i).v134max < 28 Then
Leistung134max = 335
End If
.TextMatrix(Zeile, 0) = Tabelle(i).Datum
.TextMatrix(Zeile, 1) = Tabelle(i).Uhr
.TextMatrix(Zeile, 2) = Format(Leistung134d, "#,##0.0")
.TextMatrix(Zeile, 3) = Format(Leistung134min, "#,##0.0")
.TextMatrix(Zeile, 4) = Format(Leistung134max, "#,##0.0")
Zeile = Zeile + 1
Next
End With 'Ende FGrid1(E33)
FormTab_E33.Show (0)Hier noch ein Screenshot:
http://www.bilder-hochladen.net/files/hgk3-5-jpg.html
Würd mich über Tipps sehr freuen!
Danke Euch schonmal,
Gruß Martin. |
Forenübersicht Suchen Forumsregeln
Vol.6
Sie sind aktuell nicht angemeldet.
