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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]审核  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126967)

--  作者：江南小镇
--  发布时间：2018/11/1 22:41:00
--  [求助]审核

下面是表代码
If e.DataCol.Name = "审核" Then \'如果是审核列的内容变动
If e.NewValue = True Then \'而且变动后的值是True(已勾选)
e.DataRow.Locked = True \'那么锁定此行
End If
End If

If e.DataCol.name = "审核" Then
Dim pr As DataRow = e.DataRow.GetParentRow("入库")
If pr IsNot Nothing Then
Dim crs As List(of DataRow) = pr.GetChildRows("入库管理")
Dim cnt As Integer
For Each cr As DataRow In crs
If cr("审核") = True
cnt = cnt + 1
End If
Next
pr("审核") = (crs.Count = cnt)
End If
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

老师，上面代码审核后审核列不打购。

--  作者：有点甜
--  发布时间：2018/11/1 22:45:00
--

1、你第一段是datacolchanged事件的代码，是入库管理表的代码；

2、点击按钮后，修改的是入库表的列的值，而且没有给【审核】列赋值，也和入库管理表没关系；

3、实例发上来测试，说明你要做到什么效果

--  作者：江南小镇
--  发布时间：2018/11/2 6:52:00
--

老师好，我点击审核按钮关联表不自动添加审核人、审核日期、审核列也不勾选。

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:审核.table

此主题相关图片如下：审核.png

[此贴子已经被作者于2018/11/2 6:54:13编辑过]

--  作者：有点甜
--  发布时间：2018/11/2 8:57:00
--

代码改成

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("审核") = True
    Tables("入库").Current("审核日期") = Date.now
    For Each r As Row In Tables("入库.入库管理").rows
        r("审核人") = user.name
        r("审核") = True
        r("审核日期") = Date.now
    Next
    Tables("入库.入库管理").Save()
    Tables("入库").Current.Save()
Else
    MessageBox.show("你无审核权限!")
End If

--  作者：江南小镇
--  发布时间：2018/11/2 14:48:00
--

以下是引用江南小镇在2018/11/2 6:52:00的发言：

老师好，我点击审核按钮关联表不自动添加审核人、审核日期、审核列也不勾选。

下载信息  [文件大小：344.0 KB  下载次数：1]
点击浏览该文件:审核.table

此主题相关图片如下：审核.png
[此贴子已经被作者于2018/11/2 6:54:13编辑过]
老师，反审按钮设置也要麻烦老师，希望能指定行后点击反审按钮后退勾可编辑。

--  作者：有点甜
--  发布时间：2018/11/2 14:56:00
--

If Tables("入库") .Rows.count = 0 OrElse Tables("入库.入库管理") .Rows.count = 0 Then
    MessageBox.Show("没有可审核内容!")
    Return ""
End If

If User.IsRole ("审核") Then
    Tables("入库").Current("审核人") = Nothing
    Tables("入库").Current("审核") = False
    Tables("入库").Current.Locked = False
    Tables("入库").Current("审核日期") = Nothing
    For Each r As Row In Tables("入库.入库管理").rows
        r("审核人") = Nothing
        r("审核") = False
        r.locked = False
        r("审核日期") = Nothing
    Next
    Tables("入库.入库管理").Save()
    Tables("入库").Current.Save()
Else
    MessageBox.show("你无审核权限!")
End If

--  作者：江南小镇
--  发布时间：2018/11/2 15:20:00
--

此主题相关图片如下：图像 116.png

--  作者：江南小镇
--  发布时间：2018/11/2 16:09:00
--
老师谢谢，好了。