专家坐堂-[求助]窗口菜单紧急求助Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]窗口菜单紧急求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=160414)

--  作者：小美菜
--  发布时间：2021/2/1 22:17:00
--  [求助]窗口菜单紧急求助
我的很多独立窗口设计窗口菜单，都能在设计阶段正常显示，唯独有一个独立窗口不正常显示，也不知道怎么把它弄出来，窗口运行时也没有出来，检查所有都搞不清楚原因，紧急求助！！

--  作者：有点蓝
--  发布时间：2021/2/1 22:54:00
--
这样说俺也不知道咋回事呀。截图，具体代码，或者上传实例

--  作者：小美菜
--  发布时间：2021/2/2 8:36:00
--
窗口菜单设计时显示设计的工具栏

窗口菜单设计
此主题相关图片如下：窗口菜单设计工具条显示.png
时未显示设计的工具栏

此主题相关图片如下：窗口菜单设计工具条不显示.png
窗口菜单设计时显示设计的工具栏但窗口运行出现问题

此主题相关图片如下：窗口菜单设计工具条显示参数问题0.png

--  作者：有点蓝
--  发布时间：2021/2/2 8:45:00
--
请贴出afterload完整代码。

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错？

--  作者：小美菜
--  发布时间：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")

--  作者：小美菜
--  发布时间：2021/2/2 8:50:00
--
只运行到第三行就出错了，我用MessageBox调过的，guWarrant("基础信息")("所有表")("表名组合")值也是正常的

--  作者：有点蓝
--  发布时间：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 )

--  作者：小美菜
--  发布时间：2021/2/2 9:13:00
--

在第二个msgbox出错，错误与上面的贴出图片相同
msgbox(guWarrant("基础信息")("所有表")("表名组合"))
msgbox(e.Form.Controls("CombData2Sht").ComboList )

--  作者：小美菜
--  发布时间：2021/2/2 9:19:00
--

昨天我注释掉下面第一条，结果第二条出错，提示的是不能调用“RcdData”
e.Form.Controls("CombData2Sht").ComboList = guWarrant("基础信息")("所有表")("表名组合")
Dim rcd As WinForm.RecordGrid = e.Form.Controls("RcdData")

--  作者：有点蓝
--  发布时间：2021/2/2 9:31:00
--
第二个msgbox出错，说明这个窗口没有CombData2Sht这个控件。

使用了把窗口嵌入其它窗口得用法？改为使用窗口名称：msgbox(Forms("某窗口").Controls("CombData2Sht").ComboList )