Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]窗口菜单紧急求助


  共有2280人关注过本帖树形打印复制链接

主题：[求助]窗口菜单紧急求助
帅哥哟，离线，有人找我吗？
小美菜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：646 积分：4893 威望：0 精华：0 注册：2016/1/16 22:42:00 		[求助]窗口菜单紧急求助  发帖心情 Post By：2021/2/1 22:17:00 [只看该作者]

我的很多独立窗口设计窗口菜单，都能在设计阶段正常显示，唯独有一个独立窗口不正常显示，也不知道怎么把它弄出来，窗口运行时也没有出来，检查所有都搞不清楚原因，紧急求助！！

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107479 积分：546674 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/2/1 22:54:00 [只看该作者]

这样说俺也不知道咋回事呀。截图，具体代码，或者上传实例

 回到顶部
帅哥哟，离线，有人找我吗？
小美菜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：646 积分：4893 威望：0 精华：0 注册：2016/1/16 22:42:00 		  发帖心情 Post By：2021/2/2 8:36:00 [只看该作者]

窗口菜单设计时显示设计的工具栏

窗口菜单设计
图片点击可在新窗口打开查看此主题相关图片如下：窗口菜单设计工具条显示.png
图片点击可在新窗口打开查看
时未显示设计的工具栏

图片点击可在新窗口打开查看此主题相关图片如下：窗口菜单设计工具条不显示.png
图片点击可在新窗口打开查看
窗口菜单设计时显示设计的工具栏但窗口运行出现问题

图片点击可在新窗口打开查看此主题相关图片如下：窗口菜单设计工具条显示参数问题0.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107479 积分：546674 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/2/2 8:45:00 [只看该作者]

请贴出afterload完整代码。

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错？
 回到顶部
帅哥哟，离线，有人找我吗？
小美菜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：646 积分：4893 威望：0 精华：0 注册：2016/1/16 22:42:00 		  发帖心情 Post By：2021/2/2 8:48:00 [只看该作者]

If DicContainsKey(guWarrant,"基础信息","当前表","当前主表" ) Then e.Form.Close()
Dim tMainTbl As String = guWarrant("基础信息")("当前表")("当前主表") 
e.Form.Controls("CombData2Sht").ComboList = guWarrant("基础信息")("所有表")("表名组合")
Dim rcd As WinForm.RecordGrid = e.Form.Controls("RcdData")
SetDicKeyVal(guFilter, e.Form.Name ,"上表条件", "过滤条件","")
SetDicKeyVal(guFilter, e.Form.Name ,"下表条件", "过滤条件","")
Tables("文本型数据浏览窗口_TblData").DataSource =  DataTables(tMainTbl)
Dim tStr  As  String  = guTblInfo("表结构")(tMainTbl)( "所有字段")
Dim ChkFilterCol As WinForm.CheckedComboBox = e.Form.Controls("ChkFilterCol")
Dim ChkCombSumCol As WinForm.CheckedComboBox = e.Form.Controls("ChkSumCol")
Dim ChkSaveColSum As WinForm.CheckedComboBox = e.Form.Controls("ChkSaveColSum")
'Dim CombTypeAdd As WinForm.ComboBox = e.Form.Controls("CombTypeAdd")
'Functions.Execute("Fun浏览窗口复制主分类")
'Dim ChkFilterSum1 As WinForm.CheckedComboBox = e.Form.Controls("ChkFilterSum1")
ChkFilterCol.ComboList = tStr
ChkFilterCol.Value = ""
e.Form.Controls("CombColLst").ComboList = tStr
ChkCombSumCol.ComboList = guTblInfo("表结构")(tMainTbl)( "数字字段")
e.Form.Controls("CombSumCol1").ComboList = tStr
'e.Form.Controls("CombSumCol2").ComboList = tStr
e.Form.Controls("CombSaveLbl").ComboList = tStr
e.Form.Controls("CombSaveCpt").ComboList = tStr
ChkSaveColSum.ComboList = tStr
ChkSaveColSum.Value = ""
'ChkFilterSum1.ComboList = tStr
ChkCombSumCol.Value = ""
e.Form.Controls("ChkShowColComb").ComboList = tStr
e.Form.Controls("ChkShowColComb").TEXT = IIF(guWarrant("设表参数")(tMainTbl)("默认显示") = "" ,tStr ,guWarrant("设表参数")(tMainTbl)("默认显示") ) 
e.Form.Controls("ChkNavBar").ComboList = tStr
e.Form.Controls("ChkNavBar").TEXT =  guWarrant("设表参数")(tMainTbl)("默认导航") ' tRow("默认导航") 
rcd.Table = Tables( "文本型数据浏览窗口_TblData")
rcd.Build()
E.Form.Text = "文本型数据浏览窗口[" & tMainTbl & "]" 
'Tables("万能excel导入器_TableExcel").AllowEdit=True
Tables("文本型数据浏览窗口_TblData").allowedit=False
rcd.Enabled=Tables("文本型数据浏览窗口_TblData").allowedit
Dim SplitHasWeb As WinForm.SplitContainer = e.Form.Controls("SplitHasWeb")
'SplitDemo.Panel1.Width = 640 '406+230 '    Visible=False
Vars("mTmpVar") =266
SplitHasWeb.SplitterDistance=Vars("mTmpVar")
 回到顶部
帅哥哟，离线，有人找我吗？
小美菜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：646 积分：4893 威望：0 精华：0 注册：2016/1/16 22:42:00 		  发帖心情 Post By：2021/2/2 8:50:00 [只看该作者]

只运行到第三行就出错了，我用MessageBox调过的，guWarrant("基础信息")("所有表")("表名组合")值也是正常的

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107479 积分：546674 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/2/2 9:03:00 [只看该作者]

msgbox(guWarrant("基础信息")("所有表")("表名组合"))
msgbox(e.Form.Controls("CombData2Sht").ComboList )
e.Form.Controls("CombData2Sht").ComboList = guWarrant("基础信息")("所有表")("表名组合")
msgbox(e.Form.Controls("CombData2Sht").ComboList )
 回到顶部
帅哥哟，离线，有人找我吗？
小美菜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：646 积分：4893 威望：0 精华：0 注册：2016/1/16 22:42:00 		  发帖心情 Post By：2021/2/2 9:13:00 [只看该作者]

在第二个msgbox出错，错误与上面的贴出图片相同
msgbox(guWarrant("基础信息")("所有表")("表名组合"))
msgbox(e.Form.Controls("CombData2Sht").ComboList )
 回到顶部
帅哥哟，离线，有人找我吗？
小美菜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：646 积分：4893 威望：0 精华：0 注册：2016/1/16 22:42:00 		  发帖心情 Post By：2021/2/2 9:19:00 [只看该作者]

昨天我注释掉下面第一条，结果第二条出错，提示的是不能调用“RcdData”
e.Form.Controls("CombData2Sht").ComboList = guWarrant("基础信息")("所有表")("表名组合")
Dim rcd As WinForm.RecordGrid = e.Form.Controls("RcdData")
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107479 积分：546674 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/2/2 9:31:00 [只看该作者]

第二个msgbox出错，说明这个窗口没有CombData2Sht这个控件。

使用了把窗口嵌入其它窗口得用法？改为使用窗口名称：msgbox(Forms("某窗口").Controls("CombData2Sht").ComboList )
 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05371 秒, 4 次数据查询