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

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

 
此主题相关图片如下：截屏图片 (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

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