以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  我在表事件中preparedit 事件中 加入下面代码 执行各个窗口时 跳出的dropform 有时会一样的？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88062)
--  作者：jswjyjf
--  发布时间：2016/7/26 10:26:00
--  我在表事件中preparedit 事件中 加入下面代码 执行各个窗口时 跳出的dropform 有时会一样的？
我在表事件中preparedit 事件中 加入下面代码 执行各个窗口时 跳出的dropform 有时会一样的？ 明明是不一样的窗口 怎么会呢？狐爸帮我看一下
If Forms("销售收款").opened()
    e.cancel=True
End If
If e.Col.name="单据号"
    e.cancel=True
End If

If Forms("收款管理").opened() Or Forms("付款管理").opened() Or Forms("费用管理").opened()
    If e.Col.Name = "单位名称"
        Dim frm As WinForm.Form = Forms.ActiveForm
        If frm.name="收款新增" OrElse frm.name="收款编辑"
            Tables("资金收付明细单").Cols("单位名称").DropForm = "客户选择"
        End If
        If Frm.name="付款新增" OrElse Frm.name="付款编辑"
            Tables("资金收付明细单").Cols("单位名称").DropForm = "供应商选择"
        End If
        If Frm.name="费用新增" OrElse Frm.name="费用编辑"
            
            Tables("资金收付明细单").Cols("单位名称").ComboList = DataTables("费用类型").GetComboListString("费用类型")
        End If
        
    End If
    If e.Col.Name = "帐户名称" Then
        If e.RecordGrid Is Nothing Then \'如果是在表中输入数据
            If e.Col.DroppedDown = False Then
                e.Col.OpenDropDown()
            End If
        Else \'如果是在记录窗口输入数据
            If e.RecordGrid .DroppedDown = False Then
                e.RecordGrid.OpenDropDown()
            End If
        End If
    End If
End If
If e.Row("单据状态")="已审核"
    e.cancel=True
End If
--  作者：大红袍
--  发布时间：2016/7/26 10:38:00
--  

 Dim frm As WinForm.Form = Forms.ActiveForm

 

改成

 

 Dim frm As WinForm.Form = e.Table.Form