vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
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
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Row in SevDatagrid1.120ODO29.09.09 15:43
Re: Row in SevDatagrid661ModeratorDieter29.09.09 16:16
Re: Row in SevDatagrid611ODO01.10.09 11:50
Re: Row in SevDatagrid626ModeratorDieter01.10.09 12:06
Re: Row in SevDatagrid691ODO01.10.09 14:24
Re: Row in SevDatagrid612ModeratorDieter01.10.09 14:33
Re: Row in SevDatagrid602ODO01.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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel