主题：老大，有问题指教，请指明思路！

咦，奇怪了，怎么执行没有结果呢？

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这一列啊