此主题相关图片如下：111.jpg
If e.KeyCode = Keys.Enter Then
Dim nms()As String={"xiangmuMC","wanglaiDW","jingshouR","chuangjianSJ","chuangjianRID","tianbaoDH"}
For Each nm As String In nms
If Tables("feiyongTB").Current.Isnull(nm)=True Then
messagebox.show("请将红色必填字段填写完整!","提醒")
Return
End If
Next
Dim fymx As Row = Tables("feiyongMX").AddNew
For Each nm As String In nms
fymx(nm)=Tables("feiyongTB").Current(nm)
Next
End If
老师，你看一下我的这个代码，哪里有问题
我这个窗口是这样的，项目名称，往来单位 输入完毕后后，按 enter键 明细表增加一行，项目名称、往来单位等信息填入到明细表中，可是在第一行 费用名称的地方，此时单元是选中状态，可是输入筛选值，不起作用，然后 按enter键再增加一条明细，第二行费用名称下拉框自动自动可以正常用，填完信息，在 enter增加一条明细，在下拉框输入筛选值，可以，但这时 主表的 项目名称、往来单位等信息，不能再添加到明细表中了，
加好友 
发短信
Post By：2020/8/27 22:02:00 [只看该作者]
