|
请教一下各位老师，帮忙看下下面这个代码：
问题：1、虽然写了： If user.Name = e.Table.Current("业务负责") Then
但是，并没有起作用。
2、我想“利润单.利润明细单”中子表中只要有一行数据的“账单编号”不是空值，那么“删除利润单按键”不可用
可现在代码的效果：只有选中子表中“账单编号”不是空值的行，按键不可用
求老师给改下，谢谢
|
If e.Table.Current IsNot Nothing Then '如果当前表中没有对应的内容,那么执行下边
If Forms("营业报账").Opened '如果窗口打开
If Tables("利润单.利润明细单").Current.isnull("账单编号") = False Then
If user.Name = e.Table.Current("业务负责") Then
Forms("营业报账").Controls("删除利润单按键").Enabled = True
Forms("营业报账").Controls("删除利润明细按键").Enabled = True
Else
Forms("营业报账").Controls("删除利润单按键").Enabled = False
Forms("营业报账").Controls("删除利润明细按键").Enabled = False
End If
End If
End If
End If
加好友 
发短信
Post By：2014/5/5 11:44:00 [只看该作者]
