Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Abspeichern v. Inhalten in FlexGrid ? Dieter ?
Autor: Maic
Datum: 25.03.02 16:56
Hallo ich möchte die Inhalte eines Flexgrids in eine Datei oder Datenbank abspeichern. Habe hier auch schon einen QC aber der bringr mir an der Markierten Stelle im QC (unten) einen Fehler. Das Speichern scheint zu Funktionieren nur das Öffnen gibt einen Fehler aus. Was mache ich aber wenn ich alle Inhalte nicht nur "x" wieder einlesen will Die felder, die "x" beinhalten sollen dann grau eingefärbt werden. Falls jemand Rat hat bitte um Hilfe. PS : Hallo Dieter habe Dir einen Mail geschrieben ! Gruß Maic QC################### Public Sub Selection_Wirte() Dim F As Integer Dim lRow As Long Dim lCol As Long F = FreeFile Open App.Path & "Selektion.txt" For Output As #F With GridMontag For lRow = .FixedRows To .Rows - 1 For lCol = .FixedCols To .Cols - 1 If .TextMatrix(lRow, lCol) <> "" Then Print #F, CStr(lRow) & "," & CStr(lCol) & "|"; End If Next lCol Next lRow End With Close #F End Sub Public Sub Selection_Read() Dim F As Integer Dim sLine As String Dim iPos As Integer Dim lRow As Long Dim lCol As Long Dim sCell() As String If Dir$(App.Path & "Selektion.txt") <> "" Then F = FreeFile Open App.Path & "Selektion" For Input As #F Line Input #F, sLine Close #F sCell = Split(sLine, "|") For iPos = 0 To UBound(sCell) iPos = InSr(sCell(i), ",") '## FEHLER ## i -> nicht definiert // InSr -> nicht definiert If iPos > 0 Then lRow = Val(Left$(sCell(i), iPos - 1)) lCol = Val(Mid$(sCell(i), iPos + 1)) GridMontag.TextMatrix(lRow, lCol) = "x" End If Next i End If End Sub

Abspeichern v. Inhalten in FlexGrid ? Dieter ?

45

Maic

25.03.02 16:56

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