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

老师打开窗口的时候报错
图片点击可在新窗口打开查看

此主题相关图片如下：249dad6f-4731-441a-a89d-5e064009103f.png

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

bbml = ProjectPath & "\报表\"

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

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

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

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代码麻烦老师帮我看一看

窗口有没有什么地方使用到外部设备的？

调试看看

……

msgbox(bbml)

bbml = ProjectPath & "\报表\"

msgbox("bbml=" & bbml)

……

老师，还是出一样的提示，这个窗口里没有调用外部设备，打开就弹这样的提示，但是其他窗口里有调用，会对这个有影响吗？

在哪一个msgbox之后提示错误？

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

老师，电脑是没有摄像头
图片点击可在新窗口打开查看

此主题相关图片如下：8433d9de-8ca2-4103-b60c-a04b84518d20.png

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

就是这个引起的报错，不知道没有设置时，怎么屏蔽报错。

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=92116&skin=0

好的，谢谢老师啦

主题：“UserCode”的类型初始值设定项引发异常。