我在表事件中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
加好友 
发短信
Post By：2016/7/26 10:26:00 [显示全部帖子]
