老师，下面是菜单里的“删除行”按钮的代码，结果是，它会删除所有表中“XZH”为TRUE的行，而我的要求是只要删除当前表所选择的行。
If user.NAME = "管理员" Then
For Each r As Row In Tables("fkb2").Rows
If r("XZH") = True Then
Syscmd.Row.Delete()
End If
Next
ElseIf User.IsRole("总工办") Then
For Each r As Row In Tables("XMJDB").Rows
MainTable=Tables("XMJDB")
If r("XZH") = True Then
If Tables("xmjdb").current.Isnull("BMSH") = False Then
MessageBox.Show("数据已经审核通过,你不能删除!.")
Else
Syscmd.Row.Delete()
End If
End If
Next
END IF
然后改成下列代码后就提示错误，请老师指导，谢谢？？
If user.NAME = "管理员" Then
For Each r As Row In CurrentTable("fkb2").Rows
If r("XZH") = True Then
Syscmd.Row.Delete()
End If
Next
ElseIf User.IsRole("总工办") Then
For Each r As Row In CurrentTable("XMJDB").Rows
MainTable=Tables("XMJDB")
If r("XZH") = True Then
If Tables("xmjdb").current.Isnull("BMSH") = False Then
MessageBox.Show("数据已经审核通过,你不能删除!.")
Else
Syscmd.Row.Delete()
End If
End If
Next
END IF
是不是要将CurrentTable("XMJDB").Rows改成CurrentTable.Rows呢？？
[此贴子已经被作者于2015/3/31 9:33:09编辑过]
加好友 
发短信
Post By：2015/3/31 9:31:00 [显示全部帖子]
