用QueryBuilder生成的临时表A,设想用以下代码将外部B表的“入厂时间”根据“编号”合并到A表,代码应该如何修改,请各位老师指教,谢谢。
Dim s As new QueryBuilder '生成临时表
s.TableName = "A"
s.C ’数据源
s.SelectString = "Select 编号,姓名 From {员工名册}"
s.Build
Dim t As Table = Tables("A")
t.DataTable.DataCols.Add("入厂时间", Gettype(Date)) ‘增加列
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C ‘数据源
cmd.CommandText = "SELECT * From {B}"
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.DataRows
’If DataTables("员工").Find("编号 = '" & dr("编号") & "'") Isnot Nothing Then
Dim nr As DataRow = DataTables("A").AddNew()
'For Each dc As DataCol In dt.DataCols
nr("入厂时间") = dr("入厂时间")
'Next
‘End If
Next
[此贴子已经被作者于2014-7-13 10:44:26编辑过]