以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]数据表的一列复制另外一数据表一列失败  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84233)

--  作者:joe_xgp
--  发布时间:2016/4/26 13:50:00
--  [求助]数据表的一列复制另外一数据表一列失败

各位老师,我是讲Datatables 出入查询表中的数据 “入库数量”和”出库数量“复制到 Datatables 库存查询表的后面第1天, 第2天,。。。第7天单元中,

 

但得到的数据不对,不知道哪里出问题了,请老师指教。 Datatable表之间,列数据的复制问题。

 

非常感谢!!

 

 

For =0 to 6

  For Each dr6 As DataRow In =DataTables("出入查询表").DataRows

            For Each dr7 As DataRow In DataTables("库存查询表").DataRows

                dr7("第" & i+1 & "天_入库数")=dr6("入库数量")

                dr7("第" & i+1 & "天_出库数")=dr6("出库数量")

            Next

  Next

next


--  作者:大红袍
--  发布时间:2016/4/26 14:12:00
--  

 

For Each dr6 As DataRow In DataTables("出入查询表").DataRows
   
    Dim fdr As DataRow = DataTables("库存查询表").find("第一列 = \'" & dr6("第一列") & "\'")
    If fdr IsNot Nothing Then
        For i As Integer = 0 To 6
            fdr("第" & i+1 & "天_入库数")=dr6("入库数量")
           
            fdr("第" & i+1 & "天_出库数")=dr6("出库数量")
        Next
    End If
Next

 


--  作者:大红袍
--  发布时间:2016/4/26 14:12:00
--  
上传具体实例具体说明问题。
--  作者:joe_xgp
--  发布时间:2016/4/26 16:09:00
--  

太感谢大红袍老师了,解决了!!!! 也学习了! 感恩您!!!