- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 切换用户时，想按“确定”时增加行，“取消”则不增加 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60152)
-- 发布时间：2014/11/19 11:30:00
-- 切换用户时，想按“确定”时增加行，“取消”则不增加
在“切换用户登录”区块
固有代码：Syscmd.Project.SwitchUser()
如何去区分按键状态进而
Tables("使用登记").AddNew()
或取消
-- 发布时间：2014/11/19 11:32:00
--
dim user as string = user.name
Syscmd.Project.SwitchUser()
if user <> user.name then
Tables("使用登记").AddNew()
end if
-- 发布时间：2014/11/19 11:44:00
--
另一种思路：
全局代码
Public Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
MessageBox.Show("这是自定义事件!")
Tables("表A").AddNew
Dim btnok As Windows.Forms.Button = sender
removehandler btnok.Click, addressOf btnOk_Click
End Sub
计划管理
Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing AndAlso frm.Name = "Class122" Then
Dim btnOk As Windows.Forms.Button = frm.Controls("btnOK")
addhandler btnOk.Click, addressOf btnOk_Click
MyTimers("计划1").Enabled = False
End If
切换按钮
MyTimers("计划1").Enabled = True
-- 发布时间：2014/11/19 12:10:00
-- 切换用户时，想按“确定”时增加行，“取消”则不增加
代码出错
此主题相关图片如下：snap1.jpg
-- 发布时间：2014/11/19 14:08:00
--
先写全局代码。
不行就请参考2楼
-- 发布时间：2014/11/19 15:36:00
-- 切换用户时，想按“确定”时增加行，“取消”则不增加
我的全局代码
Public _UserName As String
用您的代码修改也没解决，总是出错。
此主题相关图片如下：snap2.jpg
此主题相关图片如下：snap3.jpg
但在此时正常的
-- 发布时间：2014/11/19 15:38:00
--
Dim u As String = user.Name
Syscmd.Project.SwitchUser()
If u <> user.name Then
Tables("使用登记").AddNew()
End If