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

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