Вот моя проблема в запросе SQL, результат был успешным для загрузки данных в сетку данных, например SL_No (2,4,5), но некоторые данные отсутствуют в таблице Pairing
, как (1,2,3,4) , 5,6) если данные таблицы отношений недоступны, например (1,3,6) в таблице Receipt
.
Private Sub BtnView_Click(sender As Object, e As EventArgs) Handles btnView.Click
Dim Sql as String = "Select Pairing.Ledger_Index, Pairing.Fr_Customer_no, Pairing.Fr_Customer_nm, Receipt.Dt_Entry, Receipt.Price from Pairing INNER JOIN Receipt ON Pairing.Fr_Customer_no = Receipt.Sub_No WHERE (((Pairing.Ledger_Address)='" & cmbList.Text & "'))""
If RdoLedger.Checked=True Then
DatagridView_Load("sql",DatagridView1)
End If
End Sub
Public Function DatagridView_Load(ByVal Sql As String, ByVal Model As DataGridView)
Try
If con.State = ConnectionState.Open Then
con.Close()
End If
Model.DataSource = Nothing
Dim da As New OleDbDataAdapter(Sql, con)
Dim dt As New DataTable
dt.Clear()
da.Fill(dt)
If IsDBNull(dt) = False Then
Model.DataSource = (dt)
con.Close()
Else
Model.DataSource = Nothing
con.Close()
End If
Catch ex As Exception
MsgBox("ERROR : " & ex.Message.ToString)
End Try
Return True
End Function