[求助] 将光标移动到新增行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 将光标移动到新增行

共有3954人关注过本帖树形打印复制链接主题：[求助] 将光标移动到新增行

wumingrong1

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

[求助] 将光标移动到新增行 发帖心情

Post By：2014/9/18 16:14:00 [只看该作者]

以下命令该怎么修改、才能实现光标自动移动到新增行？

Dim ndr As DataRow = DataTables("光缆名称表").Find(" 起始机房 = '" & e.Form.Controls("起始机房").Text & "' And 终点机房 = '" & e.Form.Controls("终点机房").Text & "' And 光缆对数 = '" & e.Form.Controls("光缆对数").Text & "' And 光缆编号 = '" & e.Form.Controls("光缆编号").Text & "'")

If ndr Is Nothing Then

If e.Form.Controls("起始机房").Text > "" And e.Form.Controls("终点机房").Text > "" And e.Form.Controls("光缆对数").Text > "" Then

ndr = DataTables("光缆名称表").AddNew()

ndr("起始机房") = e.Form.Controls("起始机房").Text

ndr("终点机房") = e.Form.Controls("终点机房").Text

ndr("光缆对数") = e.Form.Controls("光缆对数").Text

ndr("光缆编号") = e.Form.Controls("光缆编号").Text

End If