- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 调用窗口出现问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=134977)
-- 发布时间：2019/5/14 14:06:00
-- 调用窗口出现问题
请教:点击调用模式窗口以后,模式窗口没有调用出来,当前窗口也关闭不掉,即使把模式窗口的显示改成最顶层 ,也不行,不能做任何操作,只能强行关闭软件,之前一直都正常,每天正常录入单据,不知道咋地回事
此主题相关图片如下：调用窗口出现问题.png
[此贴子已经被作者于2019/5/14 14:07:10编辑过]
-- 发布时间：2019/5/14 14:09:00
--
1、你的模式窗口，单独打开，能否正常打开？
2、贴出你对应事件的代码看看。
-- 发布时间：2019/5/14 14:17:00
-- 回复：（有点甜）1、你的模式窗口，单独打开，能否正常...
1、单独打开是正常的
此主题相关图片如下：模式窗口.png
2.doubleclick事件代码如下:但是我这个代码之前一直没有做任何修改
If user.name = "袁佳怡" Then
e.cancel = True \'取消
Else
If e.Col.Name = "品名" Then
e.Cancel = True
Forms("材料价格查询").Open()
End If
If e.Col.name = "申请单号" Then
If e.Row("申请单号") IsNot Nothing Then
Dim dr As DataRow = DataTables("申请单").find("申请单号 = \'"& e.row("申请单号") & "\'")
If dr IsNot Nothing Then
Tables("申请单").Filter = ""
Dim wz As Integer = Tables("申请单").findrow(dr)
If wz >= 0 Then
Tables("申请单").Position = wz
End If
End If
End If
forms("申请单录入").open()
End If
End If
这个是正常能打开的状态下的显示
此主题相关图片如下：之前备份的正常能打开的状态.png
[此贴子已经被作者于2019/5/14 14:19:59编辑过]
-- 发布时间：2019/5/14 14:28:00
--
1、【入库单录入】窗口，不要设置最顶层为true
2、事件代码，在open之前，加入msgbox，看能否弹出
3、贴出你模式窗口的afterLoad事件看看。
-- 发布时间：2019/5/14 15:32:00
-- 回复：（有点甜）1、【入库单录入】窗口，不要设置最顶...
按照您的第一个方法就解决了,谢谢