共10 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：“UserCode”的类型初始值设定项引发异常。
1楼
huangjingyu 发表于：2024/7/3 11:17:00老师打开窗口的时候报错
此主题相关图片如下：249dad6f-4731-441a-a89d-5e064009103f.png
此主题相关图片如下：7b20ec0b-57e5-45fa-b6cb-76cb3464e62f.png
bbml = ProjectPath & "\报表\"
此主题相关图片如下：249dad6f-4731-441a-a89d-5e064009103f.png此主题相关图片如下：7b20ec0b-57e5-45fa-b6cb-76cb3464e62f.png测试了代码这一句有问题 bbml在全局代码里定义的，这样是不对吗，麻烦老师帮我看一看
2楼
有点蓝 发表于：2024/7/3 11:31:00错误提示是没有设备，看看代码什么地方用到外部设备的
3楼
huangjingyu 发表于：2024/7/3 11:37:00Tables("主窗口_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代码 麻烦老师帮我看一看
4楼
有点蓝 发表于：2024/7/3 11:51:00窗口有没有什么地方使用到外部设备的？
调试看看
……
msgbox(bbml)
bbml = ProjectPath & "\报表\"
msgbox("bbml=" & bbml)
……
5楼
huangjingyu 发表于：2024/7/3 16:36:00老师，还是出一样的提示，这个窗口里没有调用外部设备，打开就弹这样的提示，但是其他窗口里有调用，会对这个有影响吗？
6楼
有点蓝 发表于：2024/7/3 16:44:00在哪一个msgbox之后提示错误？
应该是在全局代码有使用外部设备的代码吧。这台电脑是不是没有代码用到的外部设备？
7楼
huangjingyu 发表于：2024/7/3 18:37:00老师，电脑是没有摄像头
此主题相关图片如下：8433d9de-8ca2-4103-b60c-a04b84518d20.png
此主题相关图片如下：8433d9de-8ca2-4103-b60c-a04b84518d20.png是不是跟这个有关，之前一直使用都没出现过呢
8楼
xxfoxtable 发表于：2024/7/4 7:57:00就是这个引起的报错，不知道没有设置时，怎么屏蔽报错。
9楼
有点蓝 发表于：2024/7/4 9:02:00http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=92116&skin=0
10楼
huangjingyu 发表于：2024/7/4 9:19:00好的，谢谢老师啦
共10 条记录, 每页显示 10 条, 页签:
[1]