Hallo, ich habe eine Tabelle „Adressen“ in einem VB.Net Programm. Die Spalten haben Namen wie ad_nummer, ad_firma etc. Ich habe eine zweite Tabelle „Bezeichner“ in der für jede Spalte aus Adressen 2 Einträge sind, einmal 0 für Deutsch und einmal 1 für Englisch. ad_Nummer gibts es also einmal als Nummer und einmal als Number und so weiter.
Ich habe einzelne Zeilen aus Adressen in einer Windows Form. Jetzt möchte ich über einen Button entweder Deutsche oder Englische Bezeichnungen laden und übernehmen.
In einem anderen Programm hab ich das geschafft, da verwende ich allerdings ein DataGridView.
Der Code sieht wie folgt aus:
Dim ctr As Integer, fldstr As String
Dim strsql As String
strsql = „select * from adressen where ad_adress_kz in (1,2,3,4)“
’ Create a SqlDataAdapter for the Suppliers table.
Dim suppliersAdapter As SqlDataAdapter = New SqlDataAdapter()
’ Open the connection.
Dim suppliersCommand As SqlCommand = New SqlCommand(strsql, connection)
suppliersCommand.CommandType = CommandType.Text
’ Set the SqlDataAdapter’s SelectCommand.
suppliersAdapter.SelectCommand = suppliersCommand
Dim tbl As New DataTable(„adressen“)
suppliersAdapter.Fill(tbl)
AdressenDataGridView.DataSource = tbl
fldstr = „“
For ctr = 0 To AdressenDataGridView.Columns.Count - 1
fldstr = fldstr + „’“ + AdressenDataGridView.Columns.Item(ctr).Name + „’,“
AdressenDataGridView.Columns.Item(ctr).ReadOnly = True
Next
fldstr = fldstr.Substring(0, Len(fldstr) - 1)
Dim strsql2 As New SqlCommand( _
„select bez, feld from feld_bezeichnungen where sprache = " + IIf(RadioButton1.Checked, „1“, „0“) + _
" and feld in (“ + fldstr + „)“, connection)
Dim rdr As SqlDataReader = strsql2.ExecuteReader
Do While rdr.Read()
For ctr = 0 To AdressenDataGridView.Columns.Count - 1
If AdressenDataGridView.Columns.Item(ctr).Name = rdr(„feld“) Then
AdressenDataGridView.Columns.Item(ctr).HeaderText = rdr(„bez“)
Exit For
End If
Next
Loop
rdr.Close()
rdr = Nothing
Allerdings scheitere ich an Zeilen wie „AdressenDataGridView.Columns.Item(ctr).Name“ da ich ja kein Datagridview hab, habe es mit
„ERPDemoDataSet.Adressen.Columns.Item(ctr).ColumnName“ versucht aber erfolglos.
Hat jemand einen Tip für mich?