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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]父行代码,哪错了

共有4036人关注过本帖树形打印复制链接主题：[求助]父行代码,哪错了

zyys2813

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

等级：幼狐帖子：183 积分：1602 威望：0 精华：0 注册：2013/11/14 10:30:00

[求助]父行代码,哪错了 发帖心情

Post By：2014/1/30 14:56:00 [只看该作者]

先祝各位马年吉祥,合家幸福,万事如意.

出库与与入库表通过"制品编号"建立了关联,要在出库表中录入"出库数量"时,检查一下入库表中的"库存",应该怎么写,我参照帮助写的下面的出错

If e.DataCol.Name = "出库数量" Then

Dim dr As DataRow = DataTables("入库").Datarows(0)

Dim pr As DataRow = dr.GetParentRow("制品编号")

Dim kcsl As Integer = pr("库存数量")

If e.DataRow("出库数量") IsNot Nothing Then

Dim cksl As Integer = e.DataRow("出库数量")

If cksl > kcsl Then

MessageBox.show("出库数量大于库存数量!")

End If

jsq96jg

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

等级：小狐帖子：333 积分：2759 威望：0 精华：0 注册：2012/5/8 11:06:00

Post By：2014/1/30 15:23:00 [只看该作者]

第5行，改成

If e.DataRow("出库数量") <>0 then,试试

zyys2813

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

等级：幼狐帖子：183 积分：1602 威望：0 精华：0 注册：2013/11/14 10:30:00

Post By：2014/1/30 15:32:00 [只看该作者]

代码修改成这样,但不提示

If e.DataCol.Name = "出库数量" Then

Dim pr As DataRow = e.DataRow.GetParentRow("入库")

Dim kcsl As Integer = pr("库存数量")

Dim cksl As Integer = CurrentTable.Current("出库数量")

If cksl > kcsl Then

MessageBox.show("出库数量大于库存数量!")

CurrentTable.Current("出库数量") = nothing

End If

[此贴子已经被作者于2014-1-30 15:46:04编辑过]

主题：[求助]父行代码,哪错了