以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  跨表填充出现重复行的问题。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78518)
--  作者：jamhuton
--  发布时间：2015/12/10 16:01:00
--  跨表填充出现重复行的问题。
Dim Vals As List(of String())
Vals = DataTables("进口业务进度表").GetValues("客户简称|发票号码|到港日期")
For i As Integer = 0 To Vals.Count - 1
    Dim dr As DataRow = DataTables("成本明细").AddNew()
    dr("客户简称") = Vals(i)(0)
    dr("发票号码") = Vals(i)(1)
    dr("到港日期") = Vals(i)(2)
Next
--  作者：jamhuton
--  发布时间：2015/12/10 16:03:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
--  作者：大红袍
--  发布时间：2015/12/10 16:07:00
--  
DataTables("进口业务进度表").DataRows.Clear
Dim Vals As List(of String())
Vals = DataTables("进口业务进度表").GetValues("客户简称|发票号码|到港日期")
For i As Integer = 0 To Vals.Count - 1
    Dim dr As DataRow = DataTables("成本明细").AddNew()
    dr("客户简称") = Vals(i)(0)
    dr("发票号码") = Vals(i)(1)
    dr("到港日期") = Vals(i)(2)
Next
--  作者：jamhuton
--  发布时间：2015/12/10 16:26:00
--  
DataTables("成本明细").DataRows.Clear
Dim Vals As List(of String())
Vals = DataTables("进口业务进度表").GetValues("客户简称|发票号码|到港日期")
For i As Integer = 0 To Vals.Count - 1
    Dim dr As DataRow = DataTables("成本明细").AddNew()
    dr("客户简称") = Vals(i)(0)
    dr("发票号码") = Vals(i)(1)
    dr("到港日期") = Vals(i)(2)
Next

谢谢老师，应该是接收表重复数据清理吧
--  作者：大红袍
--  发布时间：2015/12/10 16:44:00
--  
嗯嗯，写错了。
--  作者：jamhuton
--  发布时间：2015/12/10 17:57:00
--  
谢谢老师，我现在慢慢摸索，不懂的地方还请多指教。