以下命令,该如何修改才能确保在新增行后能够将光标移动到新增行,确保不会弹出如下提示?
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/jpg.gif)
此主题相关图片如下:360截图20141026140908718.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2014-10/201410261494769432.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