R
Roy aus Hoy
Hallo VB-Freunde,
ich habe mit dem Datagrid ein paar Probleme. Der angefügte Code funktioniert prima solange ich am Datagrid in der Entwicklungsumgebung nichts ändere. Wenn ich zum Beispiel die Spaltenbreite ändere, wird zwar das Datagrid richtig angezeigt aber es sind keine Daten zu sehen. Was mache falsch oder wie kann ich per Code die Spaltenbreite des Datagrids festlegen ?
Private Sub GridFuellen()
Dim sSql$
'sql-String aufbauen
sSql = "SELECT SUM(dbo.GBuchungen.Anzahl_zu) AS Anzahl, dbo.Geraete.GBez1 AS Artikelbezeichnung, dbo.GBuchungen.Preis, SUM(dbo.GBuchungen.Preis) AS Summe FROM dbo.GBuchungen INNER JOIN dbo.Geraete ON dbo.GBuchungen.GNr = dbo.Geraete.GNr WHERE(dbo.GBuchungen.Aktenzeichen = " & "'" & Me.TxtAz & "') AND (dbo.GBuchungen.LsNr = " & "'" & Me.TxtLieferschein & "')GROUP BY dbo.Geraete.GBez1, dbo.GBuchungen.Preis"
With RsA
'Recordset bei Wiederholung schliessen
If .State = adStateOpen Then
'Recordset abhängen
Set DataGridGebucht.DataSource = Nothing
'schliessen
.Close
End If
.ActiveConnection = CurrentProject.Connection
.CursorType = adOpenKeyset
.LockType = adLockPessimistic
.Open sSql
If .RecordCount = 0 Then
MsgBox "Keine Buchungen vorhanden"
Exit Sub
End If
.MoveFirst
End With
'Recordset an Datagrid binden
With DataGridGebucht
Set .DataSource = RsA
.Requery
RsA.MoveFirst
End With
End Sub
Private Function Getfld(Field As Variant) As String
'Check db-Field auf Nullstring
If IsNull(Field) Then
Getfld = ""
Else
Getfld = Field
End If
End Function
ich habe mit dem Datagrid ein paar Probleme. Der angefügte Code funktioniert prima solange ich am Datagrid in der Entwicklungsumgebung nichts ändere. Wenn ich zum Beispiel die Spaltenbreite ändere, wird zwar das Datagrid richtig angezeigt aber es sind keine Daten zu sehen. Was mache falsch oder wie kann ich per Code die Spaltenbreite des Datagrids festlegen ?
Private Sub GridFuellen()
Dim sSql$
'sql-String aufbauen
sSql = "SELECT SUM(dbo.GBuchungen.Anzahl_zu) AS Anzahl, dbo.Geraete.GBez1 AS Artikelbezeichnung, dbo.GBuchungen.Preis, SUM(dbo.GBuchungen.Preis) AS Summe FROM dbo.GBuchungen INNER JOIN dbo.Geraete ON dbo.GBuchungen.GNr = dbo.Geraete.GNr WHERE(dbo.GBuchungen.Aktenzeichen = " & "'" & Me.TxtAz & "') AND (dbo.GBuchungen.LsNr = " & "'" & Me.TxtLieferschein & "')GROUP BY dbo.Geraete.GBez1, dbo.GBuchungen.Preis"
With RsA
'Recordset bei Wiederholung schliessen
If .State = adStateOpen Then
'Recordset abhängen
Set DataGridGebucht.DataSource = Nothing
'schliessen
.Close
End If
.ActiveConnection = CurrentProject.Connection
.CursorType = adOpenKeyset
.LockType = adLockPessimistic
.Open sSql
If .RecordCount = 0 Then
MsgBox "Keine Buchungen vorhanden"
Exit Sub
End If
.MoveFirst
End With
'Recordset an Datagrid binden
With DataGridGebucht
Set .DataSource = RsA
.Requery
RsA.MoveFirst
End With
End Sub
Private Function Getfld(Field As Variant) As String
'Check db-Field auf Nullstring
If IsNull(Field) Then
Getfld = ""
Else
Getfld = Field
End If
End Function