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
|