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

光标在第十行任何一个单元格时，只要按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

修改了一下好像不会提示错误了 
Dim pm As string = Tables("表A").Current("品名")
 Dim pmb As DataRow = DataTables("表B").Find("[品名]  = '" & pm & "'")
            if Tables("表A").Current("品名") = nothing then
                        Tables("表A").Current("编号") = nothing '这下面几行能简化一下吗？如果整行清空怎么写？
                        Tables("表A").Current("数量") = nothing
                        Tables("表A").Current("启用日期") = nothing
                        Tables("表A").Current("部门") = nothing
            else
               
                        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
             End If

 Tables("表A").Current("编号") = nothing '这下面几行能简化一下吗？如果整行清空怎么写？
                        Tables("表A").Current("数量") = nothing
                        Tables("表A").Current("启用日期") = nothing
                        Tables("表A").Current("部门") = nothing


简化:

For each c AS Col in  Tables("表A").Cols
    Tables("表A").Current(c.name) = Nothing
Next

谢谢！～