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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目49.table

老大，请看附件，排产优化表，从排产数据表按日期和优先级提取计划号填充到对应的加工单元列中，请教如何书写代码，已有数据为我手工填入，请指教！

做了一个按钮

Dim f As New Filler
f.SourceTable = DataTables("排产数据") '指定数据来源
f.SourceCols = "排产日期,优先级,计划号" '指定数据来源列
f.datatable = DataTables("排产优化") '指定数据接收表
f.DataCols = "排产日期,优先级,加工单元A" '指定数据接收列
f.Filter="加工单元='010212'"
f.ExcludeNullValue=True
f.Fill() '填充数据

 

 

不能全部填充啊，请帮忙

C版和老大的代码各有千秋的

Dim Arys As List(Of String())
arys = DataTables("排产数据").GetUniqueValues("", "排产日期", "优先级")
 

上面这句我想直接改为从后台erp数据库的a1表提取数据，(而"排产数据"是内部表，结构一样的)，不知能否做到

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 =DataTables(dt).GetUniqueValues("","inputdate", "remark")

 

为什么提示错误呢？

 

此主题相关图片如下：snap4.jpg

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

 

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

哦，明白了，原来dt没有这个列的，按照你的方法就OK了，

 

我还有个问题，老大，假如我想直接从后台找，（是否不用生成dt这个datatable）

Dim dr2 As DataRow = dt.Find("inputdate = #" & dr("inputdate") & "# And remark = '" & dr("remark") & "' And workcentercode = '" & dc.Caption & "'")
这句应该如何改动？

呵呵，我试试