窗口输入数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

就是8楼的用法。到表格keydown处理即可

老师，我知道还是那样设置焦点，可我却把这个判断按回车键的次数，这个怎么写呀，我在最后写了代码，可是代码不顺序执行，请老师再次帮忙

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

'焦点获取

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)

End If

'With Tables("feiyongMX")

'.Select(.RowSel, .Cols("danjia").Index)

'End With

放到表格keydown事件，不是窗口keydown事件

老师，我把代码写在了下面位置，当选择后，这三项已经有值了，可按了回车键，还是从有值得单元格，一个一个过，不能直接跳到想要到的单元格，还得怎么处理

If e.Col.Name = "feiyongMC" Then '如果编辑的是客户 ID列

If e.Col.DroppedDown Then '如果下拉窗口已经打开

Dim tbl As Table = Tables("费用下拉选择_Table1")

If e.KeyCode = Keys.Up Then '如果按下的是上箭头按键

tbl.Position = tbl.Position - 1 '向上移动一行

e.Cancel = True

ElseIf e.KeyCode = Keys.Down Then '如果按下的是下箭头按键

tbl.Position = tbl.Position + 1 '向下移动一行

e.Cancel = True

ElseIf e.KeyCode = Keys.Enter Then

If tbl.Current IsNot Nothing Then

Tables("feiyongMX").Current("feiyongMC") = tbl.Current("feiyongMC")

Tables("feiyongMX").Current("jiliangDW") = tbl.Current("jiliangDW")

Tables("feiyongMX").Current("xinghaoGG") = tbl.Current("xinghaoGG")

With Tables("feiyongMX")

.Select(.RowSel, .Cols("danjia").Index)

End With

End If

If e.Col.Name = "feiyongMC" Then '如果编辑的是客户 ID列

If e.Col.DroppedDown Then '如果下拉窗口已经打开

Dim tbl As Table = Tables("费用下拉选择_Table1")

If e.KeyCode = Keys.Up Then '如果按下的是上箭头按键

tbl.Position = tbl.Position - 1 '向上移动一行

e.Cancel = True

ElseIf e.KeyCode = Keys.Down Then '如果按下的是下箭头按键

tbl.Position = tbl.Position + 1 '向下移动一行

e.Cancel = True

ElseIf e.KeyCode = Keys.Enter Then

If tbl.Current IsNot Nothing Then

Tables("feiyongMX").Current("feiyongMC") = tbl.Current("feiyongMC")

Tables("feiyongMX").Current("jiliangDW") = tbl.Current("jiliangDW")

Tables("feiyongMX").Current("xinghaoGG") = tbl.Current("xinghaoGG")

e.Cancel = True

e.Table.Select(.RowSel, .Cols("danjia").Index)

End If

主题：窗口输入数据