咦,奇怪了,怎么执行没有结果呢?
Dim cmd As New SQLCommand
Dim dt As datatable
cmd.C
cmd.CommandText = "select distinct inputdate,remark From a1"
dt = cmd.ExecuteReader()
Dim Arys As List(Of String())
Arys =dt.GetUniqueValues("","inputdate", "remark")
For Each dr As DataRow In dt.DataRows
Dim dr1 As DataRow = DataTables("youhua").AddNew()
dr1("inputdate") = dr("inputdate")
dr1("remark") = dr("remark")
For Each dc AS DataCol In DataTables("youhua").DataCols
Dim dr2 As DataRow = dt.Find("inputdate = #" & dr("inputdate") & "# And remark = '" & dr("remark") & "' And workcentercode = '" & dc.Caption & "'")
If dr2 IsNot Nothing
dr1(dc.name) = dr2("planid")
End If
Next
Next
此主题相关图片如下:snap5.jpg
后台明明有workcentercode这一列啊
[此贴子已经被作者于2010-9-17 10:30:49编辑过]