hi,
ich habe mittlerweile eine gute anleitung gefunden wie ich meine DB-abfrage in einem Flexgrid anzeigen lassen kann und konnte diese auch meinen bedürfnissen anpassen.
nun habe ich aber das problem, das ich gerne eine erste spalte hätte die ich fortlaufend durchnummerieren möchte (1 ...............33 ) und die abgefragten werte ab spalte 2 aufgelistet werden.
ich bekomme aber ja nur die spalten die ich via sql-abfrage erhalte.
hat jemand ne ahnung wo ich diese eine spalte einfügen muss, bzw wie das auszusehen hat?
könnte man in der abfrage auch den wert des Recordcount mit abfragen?
das flexgrid befülle ich so:
meine sql abfrage und der funtionsaufruf für das flexgrid lautet folgendermaßen:
ich habe mittlerweile eine gute anleitung gefunden wie ich meine DB-abfrage in einem Flexgrid anzeigen lassen kann und konnte diese auch meinen bedürfnissen anpassen.
nun habe ich aber das problem, das ich gerne eine erste spalte hätte die ich fortlaufend durchnummerieren möchte (1 ...............33 ) und die abgefragten werte ab spalte 2 aufgelistet werden.
ich bekomme aber ja nur die spalten die ich via sql-abfrage erhalte.
hat jemand ne ahnung wo ich diese eine spalte einfügen muss, bzw wie das auszusehen hat?
könnte man in der abfrage auch den wert des Recordcount mit abfragen?
das flexgrid befülle ich so:
Visual Basic-Quellcode
- Dim i As Long
- Dim j As Long
- Dim n As String
- Dim breit As Single
- With Flex
- .Redraw = False
- .AllowBigSelection = True
- .AllowUserResizing = flexResizeBoth
- .Appearance = flex3D
- .FocusRect = flexFocusNone
- .FixedRows = 1
- .FixedCols = 1
- .Cols = Rs.Fields.Count
- For i = 0 To Rs.Fields.Count - 1
- .TextMatrix(0, i) = Rs.Fields(i).Name
- Next
- .Rows = .FixedRows + Rs.RecordCount + 1
- Do While Not Rs.EOF
- i = Rs.AbsolutePosition
- For j = 0 To Rs.Fields.Count - 1
- If Not IsNull(Rs.Fields(j).Value) Then
- .TextMatrix(i, j) = Rs.Fields(j).Value
- End If
- Next
- Rs.MoveNext
- Loop
- For i = 0 To .Cols - 1
- breit = 0
- For j = 0 To .Rows - 1
- If Me.TextWidth(.TextMatrix(j, i)) > breit Then
- breit = Me.TextWidth(.TextMatrix(j, i))
- End If
- Next
- .ColWidth(i) = breit + 120
- Next
- .Redraw = True
- End With
- End Function
meine sql abfrage und der funtionsaufruf für das flexgrid lautet folgendermaßen:
SQL-Abfrage
- rec2.Open "Select Starter.NameThema, Verein.Vereinsname,
- Starter.Gesamtwertung From Verein INNER JOIN Starter ON Starter.Verein
- like Verein.VereinID where Starter.Disziplin = '" &
- CStr(cmbdisziplinen.ListIndex + 1) & "' and Starter.Gesamtwertung
- > 0 order by Starter.Gesamtwertung DESC", pub_con, adOpenStatic,
- adLockOptimistic