Private Sub btn_tc1_ENTER_Click(sender As Object, e As RoutedEventArgs) Handles btn_tc1_ENTER.Click
Me.ArtikelAuftrag = TextBox1.Text
'MsgBox(ArtikelAuftrag)
Dim con As String = "Server=FHPCzz\SQLEXPRESS;Database=zzz;User=zzz;Pwd=zzz;"
Dim connection As New SqlConnection(con)
If Me.ArtikelAuftrag.Contains("#") Then
Me.ArtikelAuftrag = Replace(Me.ArtikelAuftrag, "#", "")
Dim cmd As String = "Select * From ArtikelInf Where ArtikelNr = '" & Me.ArtikelAuftrag & "'"
Dim command As New SqlCommand(cmd, connection)
Dim sda As New SqlDataAdapter(command)
MsgBox("Artikelnummer " & Me.ArtikelAuftrag)
Try
connection.Open()
Dim dt As New DataTable("Employee")
sda.Fill(dt)
bgdatagrid_ArtikelInf.ItemsSource = dt.DefaultView
connection.Close()
Catch ex As Exception
MsgBox(ex.toString)
End Try
' hier wird zuerst die AuftragsInformationen ausgelesen, im zweiten schritt die tabelle nach der Artieklnummer gesucht und anschließend die Artikeltabelle gefüllt.
Else
Dim cmd As String = "Select * From AuftragInf Where BetriebsAuftragsNr = '" & Me.ArtikelAuftrag & "'"
Dim command As New SqlCommand(cmd, connection)
Dim sda As New SqlDataAdapter(command)
MsgBox("Auftragsnummer " & Me.ArtikelAuftrag)
Try
connection.Open()
Dim dt As New DataTable("Employee")
sda.Fill(dt)
bgdatagrid_AuftragInf.ItemsSource = dt.DefaultView
connection.Close()
'Dim x As String = bgdatagrid_AuftragInf.
Catch ex As Exception
MsgBox(ex.ToString)
End Try
Try
'MsgBox(bgdatagrid_AuftragInf.CurrentCell.Item(2, 0).Value)
Dim cmd2 As String = "Select * From ArtikelInf Where ArtikelNr = '" & bgdatagrid_AuftragInf.CurrentCell.Item(2, 0).Value & "'"
Dim command2 As New SqlCommand(cmd, connection)
Dim sda2 As New SqlDataAdapter(command)
connection.Open()
Dim dt2 As New DataTable("Employee")
sda2.Fill(dt2)
bgdatagrid_ArtikelInf.ItemsSource = dt2.DefaultView
connection.Close()
Catch ex As Exception
End Try
Dim cell As DataGridCell = TryCast(bgdatagrid_ArtikelInf.Columns(2).GetCellContent(Grid.GetRow(
0)).Parent, DataGridCell)
Dim name As String = TryCast(cell.Content, TextBlock).Text
MessageBox.Show(name)
End If
End Sub
<Extension()>
Function GetRow(ByVal grid As DataGrid, ByVal index As Integer) As DataGridRow
Dim row As DataGridRow = DirectCast(grid.ItemContainerGenerator.ContainerFromIndex(index), DataGridRow)
If row Is Nothing Then
grid.UpdateLayout()
grid.ScrollIntoView(grid.Items(index))
row = DirectCast(grid.ItemContainerGenerator.ContainerFromIndex(index), DataGridRow)
End If
Return row
End Function