Dim sqlstr As String=" Sel ect * from A Left Outer Join B On ……" '多表联查
Dim tblDtl As Table = e.Form.Controls("test").Table
Dim conn As New System.Data.OleDb.OleDbConnection(Connections("EnPro").ConnectionString)
conn.Open
Dim cmd As New System.Data.OleDb.OleDbCommand
cmd.Connection=conn
cmd.CommandText= sqlstr
Dim adp As New System.Data.OleDb.OleDbDataAdapter(cmd)
Dim dt As New System.Data.DataTable
Try
adp.Fill(dt)
adp.FillSchema(dt,System.Data.SchemaType.Source)
Catch ex As Exception
MessageBox.Show(ex.Message,"提示")
Finally
adp.Dispose
cmd.Dispose
conn.Close
conn.Dispose
End Try
tblDtl.DataSource=dt
tblDtl.AllowEdit=True
tbldtl.AllowDelete=True
tbldtl.AllowAddNew=True
窗口绑定了这个多表联查的SQL数据,能不能修改表格数据,并保存到数据库中?