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

共有3247人关注过本帖树形打印复制链接主题：代码

有点蓝

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

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

Post By：2023/9/4 10:10:00 [显示全部帖子]

调试

Select Case e.DataCol.name

Case "到货"

msgbox(e.DataRow("到货"))

If e.DataRow("到货") = False Then

DataTables("外观尺寸检查记录").DeleteFor("编号='" & e.DataRow("编号") & "'")

Else

msgbox(e.DataRow("到货_数量"))

For i As Integer = 1 To e.DataRow("到货_数量")

Dim dr3 As Row = Tables("外观尺寸检查记录").AddNew()

有点蓝

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

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

Post By：2023/9/4 13:39:00 [显示全部帖子]

这不很明显了么，到货_数量没有值啊，for循环也就不会执行

主题：代码