专家坐堂-“UserCode”的类型初始值设定项引发异常。Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  “UserCode”的类型初始值设定项引发异常。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192583)

--  作者：huangjingyu
--  发布时间：2024/7/3 11:17:00
--  “UserCode”的类型初始值设定项引发异常。
老师打开窗口的时候报错
此主题相关图片如下：249dad6f-4731-441a-a89d-5e064009103f.png

此主题相关图片如下：7b20ec0b-57e5-45fa-b6cb-76cb3464e62f.png

bbml = ProjectPath & "\\报表\\"
测试了代码这一句有问题 bbml在全局代码里定义的，这样是不对吗，麻烦老师帮我看一看

--  作者：有点蓝
--  发布时间：2024/7/3 11:31:00
--

错误提示是没有设备，看看代码什么地方用到外部设备的

afterload事件所有代码发上来看看

--  作者：huangjingyu
--  发布时间：2024/7/3 11:37:00
--

Tables("主窗口_table1").DefaultRowHeight = 30

e.form.baseform.windowstate = 2
Dim tv As WinForm.TreeView = e.Form.Controls("TreeView2")
Dim tv1 As WinForm.TreeView = e.Form.Controls("TreeView3")
Dim tv4 As WinForm.TreeView = e.Form.Controls("TreeView4")
Dim tv5 As WinForm.TreeView = e.Form.Controls("TreeView5")
Dim bar As WinForm.NavBar = e.Form.Controls("NavBar1")
Dim nd As WinForm.TreeNode

bbml = ProjectPath & "\\报表\\"

MainTable = Tables("库存表")
Tables("主窗口_Table1").DataSource = DataTables("库存表")

Bar.SelectedIndex = 0
Tables("库存表").OpenRecordGrid()

Tables("库存表").Filter = ""
Tables("库存表").Filter = "[当前库存] <>0"

tv.Nodes.Clear
tv.BuildTree("库存表", "物资类型|物品分类|物品名称")
nd = tv.Nodes.Insert("加载全部记录", "加载全部记录", 0)

tv1.Nodes.Clear
tv1.BuildTree("库存表", "物资类型|物品分类|物品名称")
nd = tv1.Nodes.Insert("加载全部记录", "加载全部记录", 0)

tv4.Nodes.Clear
tv4.BuildTree("库存表", "物资类型|物品分类|物品名称|规格型号")
nd = tv4.Nodes.Insert("加载全部记录", "加载全部记录", 0)

tv5.Nodes.Clear
tv5.BuildTree("出入库明细", "出入库|物资类型|物品分类|物品名称|规格型号")
nd = tv5.Nodes.Insert("加载全部记录", "加载全部记录", 0)

Dim n1 As WinForm.NavBar = e.Form.Controls("NavBar1")

MainTable = Tables("库存表")

这是afterload代码麻烦老师帮我看一看

--  作者：有点蓝
--  发布时间：2024/7/3 11:51:00
--
窗口有没有什么地方使用到外部设备的？

调试看看
……
msgbox(bbml)
bbml = ProjectPath & "\\报表\\"
msgbox("bbml=" & bbml)
……

--  作者：huangjingyu
--  发布时间：2024/7/3 16:36:00
--
老师，还是出一样的提示，这个窗口里没有调用外部设备，打开就弹这样的提示，但是其他窗口里有调用，会对这个有影响吗？

--  作者：有点蓝
--  发布时间：2024/7/3 16:44:00
--
在哪一个msgbox之后提示错误？

应该是在全局代码有使用外部设备的代码吧。这台电脑是不是没有代码用到的外部设备？

--  作者：huangjingyu
--  发布时间：2024/7/3 18:37:00
--
老师，电脑是没有摄像头
此主题相关图片如下：8433d9de-8ca2-4103-b60c-a04b84518d20.png

是不是跟这个有关，之前一直使用都没出现过呢

--  作者：xxfoxtable
--  发布时间：2024/7/4 7:57:00
--
就是这个引起的报错，不知道没有设置时，怎么屏蔽报错。

--  作者：有点蓝
--  发布时间：2024/7/4 9:02:00
--
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=92116&skin=0

--  作者：huangjingyu
--  发布时间：2024/7/4 9:19:00
--
好的，谢谢老师啦