以下是引用viking在2014-5-2 19:05:00的发言：
If e.Table.Current IsNot Nothing Then '判断当前表当前行是否存在
If Forms("营业报账").Opened Then '判断这个窗口是否打开
If user.Name = e.Table.Current("业务负责") Then '判断登陆用户是否是当前行的负责人
If Tables("利润单.利润明细单").Current.isnull("账单编号") = False Then '判断账单编号是不是空值，不是空值则继续
Dim b As WinForm.Button = Forms("营业报账").Controls("删除利润单按键") '定义变量引用两个按钮
Dim d As WinForm.Button = Forms("营业报账").Controls("删除利润明细按键")
Select Case e.Table.Current("订单状态") '判断订单状态
Case "1-新增订单" ' 当为这个状态时，两个按钮可用，否则不可用
b.Enabled = True
d.Enabled = True
Case Else
b.Enabled = False
d.Enabled = False
End Select
End If
End If
End If
End If
加好友 
发短信
Post By：2014/5/2 19:09:00 [显示全部帖子]
