Hi. I have the code working just fine except all the data isn't coming up with the ds.relations code. Could you see what I'm doing wrong or what else I need to add. Code down below
Dim adapter As OdbcDataAdapter = New OdbcDataAdapter (command)
Dim ds As DataSet = New DataSet()
adapter.SelectC ommand = New OdbcCommand("se lect rmsfiles2.obcop 200.line#, rmsfiles2.obcop 200.ordno, rmsfiles2.obcop 200.quano, rmsfiles2.obcop 200.quana, rmsfiles2.obcop 200.quans, rmsfiles2.obcop 200.c2rdt, rmsfiles2.obcop 200.unitm, rmsfiles2.obcop 200.actsp, rmsfiles2.obcop 200.prdno from rmsfiles2.obcop 200 where ordno = " & Order.ToString( ), myConnection)
adapter.Fill(ds , "OBCOP200")
adapter.SelectC ommand = New OdbcCommand("se lect rmsfiles2.mspmp 100.ptyp1, rmsfiles2.mspmp 100.ptyp2, rmsfiles2.mspmp 100.descp, rmsfiles2.mspmp 100.prdno from rmsfiles2.obcop 200 inner join rmsfiles2.mspmp 100 on rmsfiles2.obcop 200.prdno = rmsfiles2.mspmp 100.prdno where rmsfiles2.obcop 200.ordno = " & Order.ToString( ), myConnection)
adapter.Fill(ds , "MSPMP100")
ds.Tables(0).Ta bleName = "OBCOP200"
ds.Tables(1).Ta bleName = "MSPMP100"
Dim relation As New DataRelation("O BCOP200MSPMP100 ", ds.Tables("OBCO P200").Columns( "prdno"), ds.Tables("MSPM P100").Columns( "prdno"), False)
' ds.Relations.Ad d("OBCOP200MSPM P100", ds.Tables("OBCO P200").Columns( "prdno"), ds.Tables("MSPM P100").Columns( "prdno"), True)
ds.Relations.Ad d(relation)
gridview1.DataS ource = ds
gridview1.DataB ind()
If ds.Tables(0).Ro ws.Count = 0 Then
lbl_error.Visib le = True
gridview1.Visib le = False
Else
lbl_error.Visib le = False
gridview1.Visib le = True
End If
If ds.Tables(1).Ro ws.Count = 0 Then
lbl_error.Visib le = True
gridview1.Visib le = False
Else
lbl_error.Visib le = False
gridview1.Visib le = True
End If