- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 审核权限 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=115513)
-- 发布时间：2018/3/8 14:26:00
--
改成
If _UserName = "线长" Then
e.form.controls("Table1").Table.Current("线长确认") = "已审核"
e.form.controls("Table1").Table.Current("确认日期") = Date.Today()
Else
MessageBox.show("你无审批权限!")
End If
-- 发布时间：2018/3/8 15:13:00
--
贴出你完整的代码看看。
-- 发布时间：2018/3/8 15:57:00
--
If _UserName = "线长" Then
e.form.controls("table控件名").Table.Current("线长确认") = "已审核"
e.form.controls("table控件名").Table.Current("确认日期") = Date.Today()
Else
MessageBox.show("你无审批权限!")
End If
-- 发布时间：2018/3/8 17:20:00
--
改成table控件的名称啊
e.form.controls("table控件名").Table.Current("线长确认") = "已审核"
-- 发布时间：2018/3/8 18:08:00
--
选中多行？
If _UserName = "线长" Then
Dim t As Table = e.form.controls("table控件名").Table
For i As Integer = t.TopPosition To t.BottomPosition
Dim r As Row = t.rows(i)
r("线长确认") = "已审核"
r("确认日期") = Date.Today()
Next
Else
MessageBox.show("你无审批权限!")
End If
[此贴子已经被作者于2018/3/9 10:18:22编辑过]
-- 发布时间：2018/3/9 9:16:00
--
是的，
此主题相关图片如下：1.jpg
-- 发布时间：2018/3/9 10:18:00
--
If _UserName = "线长" Then
Dim t As Table = e.form.controls("table控件名").Table
For i As Integer = t.TopPosition To t.BottomPosition
Dim r As Row = t.rows(i)
r("线长确认") = "已审核"
r("确认日期") = Date.Today()
Next
Else
MessageBox.show("你无审批权限!")
End If