我在KeyDown事件里写入这代码：选单表里的数据处在编辑状态，按回车键数据无法输入凭证中，结束编辑状态按回车键数据才录入凭证。如何让数据处在编辑状态按回车键后也能输入数据。
Dim tbl As Table = Tables("会计选出纳账数据_Table1")
Tables("会计选出纳账数据_Table1").FinishEditing '如果单元格处于编辑状态,需要结束编辑,让编辑内容写入单元格
If e.Form.DropTable IsNot Nothing Then
Case "收款凭证_Table1"
If e.KeyCode = Keys.Enter Then
If tbl.Current IsNot Nothing Then
If ((Forms("收款凭证").Controls("TextBox2").Text).SubString(0,2) = "现收" Or (Forms("收款凭证").Controls("TextBox2").Text).SubString(0,2) = "银收") And Forms("收款凭证").Controls("ComboBox2").text = Forms("收款凭证").Controls("ComboBox2").Items(0) Then
e.Form.DropDownBox.Value = tbl.Current("本次录入金额")
e.Form.DropTable.Current("出纳账安日期生成单号辅助列") = tbl.Current("出纳账安日期生成单号辅助列")
ElseIf ((Forms("收款凭证").Controls("TextBox2").Text).SubString(0,2) = "现收" Or (Forms("收款凭证").Controls("TextBox2").Text).SubString(0,2) = "银收") And Forms("收款凭证").Controls("ComboBox2").text = Forms("收款凭证").Controls("ComboBox2").Items(1) Then
e.Form.DropDownBox.Value = tbl.Current("本次录入金额")
e.Form.DropTable.Current("外币金额") = tbl.Current("本次外币录入金额")
e.Form.DropTable.Current("币种") = tbl.Current("币种")
e.Form.DropTable.Current("汇率") = tbl.Current("汇率")
e.Form.DropTable.Current("出纳账安日期生成单号辅助列") = tbl.Current("出纳账安日期生成单号辅助列")
End If
End If
e.Cancel = True
e.Form.DropDownBox.CloseDropDown()
End If
加好友 
发短信
Post By：2022/3/10 21:30:00 [只看该作者]
此主题相关图片如下：微信图片_20220312144140.jpg
