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

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

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

窗口菜单设计

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

时未显示设计的工具栏

图片点击可在新窗口打开查看

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

窗口菜单设计时显示设计的工具栏但窗口运行出现问题

图片点击可在新窗口打开查看

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

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")

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

在第二个msgbox出错，错误与上面的贴出图片相同

msgbox(guWarrant("基础信息")("所有表")("表名组合"))

msgbox(e.Form.Controls("CombData2Sht").ComboList )

昨天我注释掉下面第一条，结果第二条出错，提示的是不能调用“RcdData”

e.Form.Controls("CombData2Sht").ComboList = guWarrant("基础信息")("所有表")("表名组合")

Dim rcd As WinForm.RecordGrid = e.Form.Controls("RcdData")

按你说的改用msgbox(Forms("文本型数据浏览窗口").Controls("CombData2Sht").ComboList )，错误一样，我昨天多次删除BIN目录下的东西，问题也得不到解决；现在我删除掉窗口工具栏，问题还是一样；

[此贴子已经被作者于2021/2/2 9:50:20编辑过]

不明白你说的意思，不能msgbox(Forms("父窗口名称").Controls("CombData2Sht").ComboList ) 这样用吗？没有窗口套窗口使用，在内部函数中有这样用

[此贴子已经被作者于2021/2/2 10:04:11编辑过]

主题：[求助]窗口菜单紧急求助