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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 双击事件求助

共有2696人关注过本帖树形打印复制链接主题：双击事件求助

tuyage

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：155 积分：1096 威望：0 精华：0 注册：2014/8/14 8:38:00

双击事件求助 发帖心情

Post By：2014/9/29 20:39:00 [只看该作者]

假设有表A和表B两个表，我将两个表利用“用户名”建立关联，现在我表A的双击事件代码如下：

If e.Col.Name = "课时" Then '如果编辑的是课时列

Forms("学员上课").Open()

Dim pwd As String

InputPassWord(pwd,"验证","请输入密码") '输入密码

If pwd = e.Row("学员密码") Then '如果密码正确

Tables("表B").AddNew()

Else

Messagebox.Show("密码错误","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Forms("学员上课").Close

End If

现在我想要，如果密码正确，则在表B中新增加的行自动生成双击表A中某一列所对应的用户名，如何修改代码，请求指示。。

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/9/29 20:42:00 [只看该作者]

If e.Col.Name = "课时" Then '如果编辑的是课时列
    Dim pwd As String
    InputPassWord(pwd,"验证","请输入密码") '输入密码
    If pwd = e.Row("学员密码") Then '如果密码正确
        Forms("学员上课").Open()
        Dim nr As Row = Tables("表B").AddNew()
        nr("用户名") = e.Row("用户名")
    Else
        Messagebox.Show("密码错误","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Forms("学员上课").Close
    End If
End If

tuyage

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：155 积分：1096 威望：0 精华：0 注册：2014/8/14 8:38:00

Post By：2014/9/29 20:52:00 [只看该作者]

一百和赞

下一主题 >> << 上一主题

主题：双击事件求助