[求助]请帮修改afteredit中的代码（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

光标在第十行任何一个单元格时，只要按del键和enter键，就会出现错误提示，不知是什么原因？
请老师们帮修改一下AfterEdit事件中的代码！另外：当品名列为空时要清空这一行的所有列的内容！（不是删除行）
AfterEdit事件中的代码：
   Dim pm As string = Tables("表A").Current("品名")
   Dim pmb As DataRow = DataTables("表B").Find("[品名] = '" & pm & "'")
       Tables("表A").Current("编号") = pmb("编号")
       If Tables("表A").Current("部门") is nothing andalso pmb("部门") = -1 Then

             Messagebox.Show("请选择部门!", "提示",MessageBoxButtons.OK)
                    Dim bm As string = Tables("表A").Current("部门")
                      If bm Is Nothing Then
                           e.Table.Select(e.Table.RowSel, e.Table.Cols("部门").Index -1)
                      End If
         End If

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.table

[此贴子已经被作者于2009-2-18 20:27:04编辑过]

主题：[求助]请帮修改afteredit中的代码（已解决）