以下是引用有点甜在2015/3/5 11:51:00的发言:
代码写得有问题。代码直接用
CurrentTable 不要用那些别如 Tables("表A")
老师,我原来就是用如 Tables("表A")的代码,但是改成CurrentTable(“表A”)后却提示错误:
比如这样的代码就可以,但就是会一个按钮操作所有的表
For Each r As Row In TableS("贷款信息总表").Rows
If r("录入人") = USER.NAME Then
If r("选择行") = True Then
If R.Isnull("FH") = True Then
Syscmd.Row.Delete()
Else
MessageBox.Show("你不能删除他人的数据")
End If
End If
End If
Next
但改成下面的代码后就不行了
For Each r As Row In CurrentTable("贷款信息总表").Rows
If r("录入人") = USER.NAME Then
If r("选择行") = True Then
If R.Isnull("FH") = True Then
Syscmd.Row.Delete()
Else
MessageBox.Show("你不能删除他人的数据")
End If
End If
End If
Next
[此贴子已经被作者于2015/3/5 11:57:33编辑过]