In mijn formulier probeer ik twee datagridviews te vullen dmv tw stored procedures die als argument de geselecteerde waarde meekrijgen van mijn combobox.
Wanneer ik de beiden afzonderlijk uitvoer krijg ik het gewenste resultaat maar wanneer ik ze samenbreng in mijn prog dan krijg ik in beide datagridvieuws het resultaat van de tweede SP Hieronder de code te verduidelijking:
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
KoppelData(LeesPatientOpNaam(), DataGridView1)
KoppelData(LeesOrderIDOpNaam(), DataGridView2)
End Sub
Private Sub KoppelData(ByVal dataTable As DataTable, ByVal datagridview As DataGridView)
bindingsource.DataSource = dataTable
datagridview.DataSource = bindingsource
End Sub
Private Function LeesPatientOpNaam() As DataTable
Dim adapter As New KlantenDataSetTableAdapters.KlantenTableAdapter
Dim naam As String = ComboBox1.SelectedValue.ToString
Return adapter.GetKlant(naam)
'De GetKlant(naam) is de 1 e stored procedure met als argument de naam
End Function
Private Function LeesOrderIDOpNaam() As DataTable
Dim adapter As New KlantenDataSetTableAdapters.OrdersTableAdapter
Dim naam As String = ComboBox1.SelectedValue.ToString
Return adapter.GetOrderIDByCustomer(naam)
End Function
Kan er mij iemand vertellen wat ik hier over het hoofd zie en hoe ik het eventueel kan oplossen?
Thanks
Wanneer ik de beiden afzonderlijk uitvoer krijg ik het gewenste resultaat maar wanneer ik ze samenbreng in mijn prog dan krijg ik in beide datagridvieuws het resultaat van de tweede SP Hieronder de code te verduidelijking:
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
KoppelData(LeesPatientOpNaam(), DataGridView1)
KoppelData(LeesOrderIDOpNaam(), DataGridView2)
End Sub
Private Sub KoppelData(ByVal dataTable As DataTable, ByVal datagridview As DataGridView)
bindingsource.DataSource = dataTable
datagridview.DataSource = bindingsource
End Sub
Private Function LeesPatientOpNaam() As DataTable
Dim adapter As New KlantenDataSetTableAdapters.KlantenTableAdapter
Dim naam As String = ComboBox1.SelectedValue.ToString
Return adapter.GetKlant(naam)
'De GetKlant(naam) is de 1 e stored procedure met als argument de naam
End Function
Private Function LeesOrderIDOpNaam() As DataTable
Dim adapter As New KlantenDataSetTableAdapters.OrdersTableAdapter
Dim naam As String = ComboBox1.SelectedValue.ToString
Return adapter.GetOrderIDByCustomer(naam)
End Function
Kan er mij iemand vertellen wat ik hier over het hoofd zie en hoe ik het eventueel kan oplossen?
Thanks
