Foxtable(狐表)用户栏目专家坐堂 → [求助]审核


  共有2016人关注过本帖树形打印复制链接

主题:[求助]审核

帅哥哟,离线,有人找我吗?
江南小镇
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1765 积分:11811 威望:0 精华:0 注册:2015/6/22 8:11:00
[求助]审核  发帖心情 Post By:2017/9/11 19:44:00 [只看该作者]

老师,我在点击审核到最后行时整个窗口变成白色。

.NET Framework 版本:2.0.50727.3655
Foxtable 版本:2017.4.22.1
错误所在事件:
详细错误信息:
Failed to enable constraints. One or more rows contain values violating non-null, unique, or foreign-key constraints.

下面是审核按钮代码。

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
[此贴子已经被作者于2017/9/11 19:52:45编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/9/11 20:18:00 [只看该作者]

关联有问题

1、删除关联重新创建

2、数据库表是否设置了某些列不能为空

3、表事件是否有其它代码影响

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1765 积分:11811 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2017/9/11 21:36:00 [只看该作者]

和这个代码有关系吗?


'Dim nms() As String = {"记录日期","来源","结算方式","经办人"}
'Dim ep As String
'For Each nm As String In nms
   ' If Tables("入库").current.isnull(nm) Then
      '  ep= nm
      '  Exit For
   ' End If
'Next
'If ep > "" Then
   ' messagebox.show(ep & "不能为空")
   ' e.Cancel = True                         '取消变动.
'End If

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/9/11 21:52:00 [只看该作者]

注释后运行有没有问题?

 回到顶部