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

If e.DataCol.Name = "生产批次" OrElse e.DataCol.Name = "生产日期" OrElse e.DataCol.Name = "成品编码" OrElse e.DataCol.Name = "加工工序" OrElse e.DataCol.Name = "使用设备" Then '如果内容发生变动的是产品列

MessageBox.Show(1)

If e.DataRow.Isnull(e.DataCol.Name) Then '如果新值是空白,也就是产品列的内容为空

MessageBox.Show(2)

e.DataRow("实际调机员") = Nothing '那么清空此行单价列的内容

MessageBox.Show(3)

Else

Dim dr As DataRow

'否则在产品表查找同名的产品行,将找到的行赋值给变量dr

dr = DataTables("开机任务表").sqlFind("[生产批次] = '" & e.DataRow("生产批次") & "' And [生产日期] = '" & 参考前面自己改改 & "' And [成品编码] = '" & 参考前面自己改改 & "'And [加工工序] = '" & 参考前面自己改改 & "' And [使用设备] = '" & 参考前面自己改改 & "'" )

MessageBox.Show(4)

If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing

MessageBox.Show(5)

e.DataRow("实际调机员") = dr("实际调机员")

MessageBox.Show(6)

End If

nuoyan88	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	代码调试 Post By：2018/7/21 11:32:00 [只看该作者] 用户已被锁定

nuoyan88	小大 4楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2018/7/21 12:00:00 [只看该作者] 用户已被锁定

主题：代码调试