Dim cmd As new SQLCommand
cmd.数据源 = "kis" ‘这个是SQL的数据库
cmd.数据源 = "qs" ‘这个是Access的数据库
cmd.CommandText = "sele ct a.*,b.* from {BOM对照表} As a "
cmd.CommandText &= " left join [" & Vars("Kis") & "].dbo.物料表 As b on a.itid = b.ItID "
If e.Form.Controls("Textfi").text > "" Then cmd.CommandText &= " where " & e.Form.Controls("Textfi").text
Dim sdt As DataTable = cmd.ExecuteReader
Dim tb As Table = Tables(e.Form.Name & "_Table1")
tb.DataSource = cmd.ExecuteReader