专家坐堂-跨表填充出现重复行的问题。Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  跨表填充出现重复行的问题。  (http://foxtable.net/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
--
谢谢老师，我现在慢慢摸索，不懂的地方还请多指教。