在AfterCheckRow 事件里写了这些代码
If e.Row("调1") = "调出店铺" Then
e.Table.DataTable.DeleteFor("调1 = '调出店铺'")
If e.Table.rows.count = 0 Then
Forms("调拨明细").Visible = False
End If
If e.Row("调1") = "调入店铺" Then
e.Row.Delete()