以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]麻烦大侠给翻译下，我迷糊了！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50236)
--  作者：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
--  作者：jspta
--  发布时间：2014/5/2 19:09:00
--  
以下是引用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

--  作者：viking
--  发布时间：2014/5/3 10:48:00
--  

也就是说：当前登录时业务负责 时， 账单编号 不是空值 且 订单状态为 新增订单  时  两个按钮可用？