以下命令，该如何修改才能确保在新增行后能够将光标移动到新增行，确保不会弹出如下提示？

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

Dim dlg As New OpenFileDialog

dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png;*.txt;*.xls;*.doc;*.cad;*.vsd;*.pptx;*.dwg;*.kmz;*.mdb;*.psd;*.rar"

If dlg.ShowDialog = DialogResult.OK Then

    Dim fl As String = dlg.FileName

    

    DataTables("光缆台帐附件表").Save()

    Dim r As Row = Tables("光缆台帐附件表").AddNew()

    DataTables("光缆台帐附件表").Save()

    

    r("机房名称") = e.Form.Controls("机房名称").Text

    r("光缆名称") = e.Form.Controls("光缆名称").Text

    

    r("文件名") = FileSys.GetName(fl) \'写入文件名

    r.Save \'必须先保存

    r.DataRow.SQLInsertFile("附件",fl) \'插入文件

    r.DataRow.SQLSetValue("CRC值", CRCCheckFile(fl)) \'保存crc检验值

End If