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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]录入窗口表当前单元格

共有2846人关注过本帖树形打印复制链接主题：[求助]录入窗口表当前单元格

天一生水

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

加好友

发短信

等级：五尾狐帖子：1141 积分：11272 威望：0 精华：0 注册：2017/9/26 16:30:00

[求助]录入窗口表当前单元格 发帖心情

Post By：2019/1/15 8:52:00 [只看该作者]

双击窗口表单元格，打开录入窗口，在文本框录入数字，写入当前单元格。

但是第一个被双击的单元格写不进去，要变换第二个单元格以后才能写进去，是哪里的问题？
谢谢！

图片点击可在新窗口打开查看此主题相关图片如下：截屏图片 (1).jpg

1、窗口表的DoubleClick-双击单元格打开录入窗口

If e.Col.Name = "二审案号" Then
Forms("上诉案号").open()
End If

2、录入窗口的TextChanged-文本框录入数字，组合成案号写入当前单元格

If Forms("上诉管理").opened AndAlso e.Form.Controls("TextBox1").text <> "" Then
Tables("上诉管理_table1").Current("二审案号") = Forms("上诉案号").Controls("ComboBox1").text & e.Form.Controls("TextBox1").text & "号"
End If

有点甜

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

加好友

发短信

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

Post By：2019/1/15 8:56:00 [只看该作者]

doubleclick

If e.Col.Name = "二审案号" Then

e.cancel = true
Forms("上诉案号").open()
End If

TextChanged

msgbox(1)

If Forms("上诉管理").opened AndAlso e.Form.Controls("TextBox1").text <> "" Then

msgbox(2)
Tables("上诉管理_table1").Current("二审案号") = Forms("上诉案号").Controls("ComboBox1").text & e.Form.Controls("TextBox1").text & "号"

msgbox(Forms("上诉案号").Controls("ComboBox1").text & e.Form.Controls("TextBox1").text & "号")
End If

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

主题：[求助]录入窗口表当前单元格