自动修改 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动修改

共有2067人关注过本帖树形打印复制链接主题：自动修改

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107672 积分：547681 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/10/25 16:32:00 [显示全部帖子]

“零件探伤清单”datacolchanged后面添加代码

Select Case e.DataCol.Name

Case "生产令号","项目名称","....其它需要同步的列名都放到这里，自己补上.....

Dim ndr As DataRow = DataTables("VT报告").Find("零部件编号='" & e.DataRow("零部件编号") & "'")

If ndr Is Nothing

ndr = DataTables("VT报告").AddNew

ndr("零部件编号") = e.DataRow("零部件编号")

ndr("焊缝编号") = "/"

ndr("产品标识") = "/"

ndr("编制人资质") = "VT"

ndr("审核人资质") = "VT"

End If

ndr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)

End Select

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107672 积分：547681 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/10/26 9:39:00 [显示全部帖子]

Select Case e.DataCol.Name

Case "生产令号","项目名称","....其它需要同步的列名都放到这里,自己补上.....

If e.DataRow("探伤要求_VT") Then

Dim ndr As DataRow = DataTables("VT报告").Find("零部件编号='" & e.DataRow("零部件编号") & "'")

If ndr Is Nothing

ndr = DataTables("VT报告").AddNew

ndr("零部件编号") = e.DataRow("零部件编号")

ndr("焊缝编号") = "/"

ndr("产品标识") = "/"

ndr("编制人资质") = "VT"

ndr("审核人资质") = "VT"

End If

ndr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)

End If

End Select

主题：自动修改