- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 循环代码生成配备表求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102011)
-- 发布时间：2017/6/12 9:18:00
--
此主题相关图片如下：qq截图20170612091734.jpg
http://www.foxtable.com/webhelp/scr/2321.htm
[此贴子已经被作者于2017/6/12 9:18:03编辑过]
-- 发布时间：2017/6/12 16:46:00
--
DataTables("配备明细表").StopRedraw
DataTables("配备明细表").dataRows.Clear
Dim dr As DataRow
Dim dr1 As DataRow
Dim dr2 As DataRow
For Each dr In DataTables("学校基本信息表").DataRows
Dim pblb As String = dr("配备类别")
For Each dr1 In DataTables("教学仪器配备标准表").Select("[配备类别] = \'" & pblb & "\'") \'如果配备类别为空,则应用is null,("[配备类别] = \'"" & pblb & ""\'")
dr2 = DataTables("配备明细表").AddNew
dr2("仪器编号") = dr1("仪器编号")
dr2("学科") = dr1("学科")
dr2("仪器名称") = dr1("仪器名称")
dr2("规格型号") = dr1("规格型号")
dr2("数据单位") = dr1("数据单位")
dr2("数量") = dr1("数量")
dr2("学校名称") = dr("学校名称")
dr2("学校代码") = dr("学校代码")
dr2("配备类别") = dr("配备类别")
Next
Next
DataTables("配备明细表").Save
DataTables("配备明细表").ResumeRedraw