循环代码生成配备表求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

zsxx999	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：798 积分：9630 威望：0 精华：0 注册：2011/4/20 14:23:00	循环代码生成配备表求助 Post By：2017/6/11 23:08:00 [只看该作者] 用户已被锁定

zsxx999	小大 3楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：798 积分：9630 威望：0 精华：0 注册：2011/4/20 14:23:00	Post By：2017/6/12 16:35:00 [只看该作者] 用户已被锁定

主题：循环代码生成配备表求助