老师，我知道还是那样设置焦点，可我却把 这个 判断 按 回车键的次数，这个怎么写呀，我在最后 写了代码，可是代码不顺序执行，请老师再次帮忙
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
'焦点获取
e.form.controls("table1").Select()
With Tables("feiyongMX")
.Select(.RowSel, .Cols("feiyongMC").Index)
End With
'焦点获取
e.cancel=True
Tables("feiyongMX").FinishEditing
Dim fymx As Row = Tables("feiyongMX").AddNew
For Each nm As String In nms
fymx(nm)=Tables("feiyongTB").Current(nm)
Next
End If
'With Tables("feiyongMX")
'.Select(.RowSel, .Cols("danjia").Index)
'End With
加好友 
发短信
Post By：2020/8/27 22:02:00 [显示全部帖子]
此主题相关图片如下：111.jpg
