16,554
社区成员
发帖
与我相关
我的任务
分享
Dim sqlstr As String = "select 表1.商品编码,表1.商品名称,表2.数量,表1.储存位置 from 表1,表2 where 表1.商品编码=表2.商品编码"
Dim mDT As New DataTable
Dim mAdapter As New OleDbDataAdapter
Dim mConn As New OleDbConnection
mAdapter.SelectCommand = New OleDbCommand(sqlstr, mConn)
mAdapter.Fill(mTable)
DataGridView1.DataSource = mTable