Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Row in SevDatagrid
Autor: ODO
Datum: 29.09.09 15:43
Im Beispielprojekt des sevDatagrids wird eine Abhängigkeit von zwei SevDatagrids gezeigt. Ich bekomme das aber nicht in meinem Projekt hin. Etwas muss ich übersehen haben. Das Grid1 bekommt nicht diesen Row-Balken bzw. Datensatzmarkierer und das Grid2 reagiert nicht auf die Auswahl des Grid1........ Private Sub Form_Load() With Grid1 ' autom. Neuzeichnen des DataGrids unterbinden .LockUpdate True ' Spalten hinzufügen (bei DB-Anbindung nicht ' unbedingt notwendig!) .ColumnAdd , , 700 .ColumnAdd , , 1000 .ColumnAdd , , 2000 .ColumnAdd , , 2000 .ColumnAdd , , 2000 .ColumnAdd , , 800 .ColumnAdd , , 1700 ' Spalten-Beschriftung .Columns(1).Caption = "RNr" .Columns(2).Caption = "R-Datum" .Columns(6).Caption = "PLZ" ' Neuzeichnen des DataGrids wieder aktivieren .LockUpdate False .Refresh .Row = Grid1.Rows End With End sub Private Sub Grid2_RowChange(ByVal nRow As Long) Dim Db As DAO.Database Dim RS As DAO.Recordset Set Db = DBEngine.OpenDatabase(App.Path & "/datenbank/Rechnungsdaten.mdb", False, False) ', ";pwd=xyz") 'Tabellezuordnung "Zusatz" in Abhängigkeit von Angebot oder Rechnung If FormRechnungsArchive.OptRechnungArchive.Value = True Then TABELLEZusatz_ARCHIVE = "Rechnungszusatz1" ElseIf FormRechnungsArchive.OptAngebotArchive.Value = True Then TABELLEZusatz_ARCHIVE = "Angebotszusatz" End If lblStatus.Caption = CStr(nRow) & " von " & CStr(Grid1.Rows) 'cmdDelete.Enabled = (nRow > 0) ' Zusatz der Rechnungen anzeigen With Grid2 .Caption = "Kontakte für Kunde: " & Grid1.Text(nRow, 1) & " " & Grid1.Text(nRow, "Name") Set .Recordset = DB.OpenRecordset("SELECT Rechnungs_Nr, Stückzahl, BezeichnungHand, Artikel_Nr, Rabatt, EinzelpreisHand, Position, Netto, WG " & _ "From " & TABELLEZusatz_ARCHIVE & " WHERE Rechnungs_Nr = '" & Grid1.Text(nRow, "RNr") & "';") .Refresh End With End Sub

Row in SevDatagrid	1.207	ODO	29.09.09 15:43
Re: Row in SevDatagrid	723	Dieter	29.09.09 16:16
Re: Row in SevDatagrid	671	ODO	01.10.09 11:50
Re: Row in SevDatagrid	681	Dieter	01.10.09 12:06
Re: Row in SevDatagrid	745	ODO	01.10.09 14:24
Re: Row in SevDatagrid	662	Dieter	01.10.09 14:33
Re: Row in SevDatagrid	658	ODO	01.10.09 14:54

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