|
If _UserName = e.form.controls("销售产品报价").Table.Current("业务员") Then
For i As Integer = 0 To e.form.controls("销售产品报价").Table.rows.count-1
Dim r As Row = e.form.controls("销售产品报价").Table.rows(i)
If r("生效状态") = "生效中" Then
If r.checked = True Then
r("生效状态") = "停止使用"
r("操作日期") = Date.Today()
End If
ElseIf r("生效状态") = "停止使用" Then
If r.checked = True Then
r("生效状态") = "生效中"
r("操作日期") = Date.Today()
End If
End If
Next
Else
MessageBox.show("你无修改权限!")
End If
| 
加好友 
发短信
Post By：2019/2/25 9:16:00 [显示全部帖子]
