- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关联表报表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91720)
-- 发布时间：2016/10/17 16:30:00
-- [求助]关联表报表
按生成报表 －》报表1 报表不能自动产生2个记录
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:关联表.rar |
-- 发布时间：2016/10/17 16:33:00
--
此主题相关图片如下：1.jpg
此主题相关图片如下：2.jpg
-- 发布时间：2016/10/17 16:46:00
--
去掉分组条件
-- 发布时间：2016/10/17 17:03:00
--
生成报表时，只能导入第一个记录（主梁），没有导入第地二个记录（端梁）。不知什么问题？
-- 发布时间：2016/10/17 17:16:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:数据表.xls |
-- 发布时间：2016/10/17 21:26:00
--
需要克隆基本作息表（父表）行时，用什么代码可以实现连关联表的记录也一行克隆？
-- 发布时间：2016/10/17 21:55:00
--
参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=91474
-- 发布时间：2016/10/17 22:36:00
--
这个代码哪里错？
Dim r As Row = Tables("基本信息表").Current
Dim dnew As Row = Tables("基本信息表").AddNew
Dim name As String = r("出厂编号")
For Each c As Col In Tables("基本信息表").Cols
If c.Name = "出厂编号" Then
dnew(c.Name) = name
ElseIf c.Name <> "_Identify" Then
dnew(c.Name) = r(c.Name)
End If
Next
Dim drs As List(Of DataRow)
drs = r.DataRow.GetChildRows("受力结构件")
Dim rc As DataRow
For Each dr As DataRow In drs
rc = dr.Clone
rc("出厂编号") = name
Next
Dim drs As List(Of DataRow)
drs = r.DataRow.GetChildRows("零部件")
Dim rc As DataRow
For Each dr As DataRow In drs
rc = dr.Clone
rc("出厂编号") = name
Next
Dim drs As List(Of DataRow)
drs = r.DataRow.GetChildRows("安全保护装置")
Dim rc As DataRow
For Each dr As DataRow In drs
rc = dr.Clone
rc("出厂编号") = name
Next
此主题相关图片如下：1.jpg
-- 发布时间：2016/10/17 22:40:00
--
drs重复定义了3次
-- 发布时间：2016/10/17 22:42:00
--
Dim drs As List(Of DataRow)
drs = r.DataRow.GetChildRows("受力结构件")
Dim rc As DataRow
For Each dr As DataRow In drs
rc = dr.Clone
rc("出厂编号") = name
Next
drs = r.DataRow.GetChildRows("零部件")
For Each dr As DataRow In drs
rc = dr.Clone
rc("出厂编号") = name
Next
drs = r.DataRow.GetChildRows("安全保护装置")
For Each dr As DataRow In drs
rc = dr.Clone
rc("出厂编号") = name
Next