主题：[求助] 将光标移动到新增行

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

 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

End If

提示错误

此主题相关图片如下：360截图20140918162819109.jpg