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


  共有2666人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
天一生水
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1137 积分:11218 威望: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


 回到顶部