- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]审核 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148546)
-- 发布时间：2020/4/9 20:22:00
-- [求助]审核
老师好，我按审核按钮时有下面的报错。
.NET Framework 版本：2.0.50727.8806
Foxtable 版本：2017.4.22.1
错误所在事件：
详细错误信息：
试图将 Null 值赋予一个非 Variant 数据类型的变量。
If Tables("出库") .Rows.count = 0 OrElse Tables("出库.出库明细") .Rows.count = 0 Then
MessageBox.Show("没有可审核内容!")
Return
End If
If User.IsRole ("审核") Then
Tables("出库").Current("审核人") = User.Name
Tables("出库").Current("审核日期") = Date.now
Tables("出库.出库明细"). Current.Save()
Tables("出库").Current.Save()
Else
MessageBox.show("你无审核权限!")
End If
-- 发布时间：2020/4/9 20:39:00
--
If Tables("出库").Current = nothing
MessageBox.Show("出库表中没有选中行!")
Return
End If
If Tables("出库") .Rows.count = 0 OrElse Tables("出库.出库明细") .Rows.count = 0 Then
MessageBox.Show("没有可审核内容!")
Return
End If
If User.IsRole ("审核") Then
Tables("出库").Current("审核人") = User.Name
Tables("出库").Current("审核日期") = Date.now
Tables("出库.出库明细"). Current.Save() \'这一行代码没有意义。
Tables("出库").Current.Save()
Else
MessageBox.show("你无审核权限!")
End If
-- 发布时间：2020/4/9 20:41:00
--
其实这样就可以：
If Tables("出库").Current = nothing
MessageBox.Show("出库表中没有选中行!")
Return
End If
If User.IsRole ("审核") Then
Tables("出库").Current("审核人") = User.Name
Tables("出库").Current("审核日期") = Date.now
Tables("出库").Current.Save()
Else
MessageBox.show("你无审核权限!")
End If
-- 发布时间：2020/4/9 20:42:00
--
出库和出库明细有没有保存前表事件？
-- 发布时间：2020/4/9 21:17:00
--
没有
-- 发布时间：2020/4/9 21:21:00
--
上传实例说明
-- 发布时间：2020/4/9 21:50:00
--
老师，程老师给的代码报错。
此主题相关图片如下：报错.png
-- 发布时间：2020/4/9 22:06:00
--
If Tables("出库").Current is nothing
-- 发布时间：2020/4/10 8:53:00
--
老师，重新搞了个表结构，好了。