Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:[原创]请问这段程序有什么错?

1楼
aloby 发表于:2011/5/19 17:37:00

下面二个循环去掉任何一个都正常,二个都在就出错:a child row was mutilple parents.

 

Dim dt1 As DataTable = DataTables("凭证")
Dim dt2 As DataTable = DataTables("凭证明细")
Dim Customers As List(Of String)
Customers = dt1.GetUniqueValues("", "凭证类别")

With Tables("凭证")
For Each Customer As String In Customers
     Dim r As  Row = .Addnew()
     r("凭证类别") = Customer
     r("凭证ID") = "合计"
Next
End With

 

With Tables("凭证明细")
For Each Customer As String In Customers
     Dim r2 As  Row = .Addnew()
     r2("凭证类别") = Customer
     r2("凭证ID") = "合计"
Next
End With

2楼
狐狸爸爸 发表于:2011/5/19 17:40:00

看这一节的最后一段话:

 

http://help.foxtable.com/topics/0106.htm

 

共2 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 2 queries.