- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 关于全局代码的使用问题！ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=148338)
-- 发布时间：2020/4/5 22:44:00
-- 关于全局代码的使用问题！
Dim ck As New Dictionary(Of Integer, String)
ck.Add(1,"一号库")
ck.Add(2,"二号库")
ck.Add(3,"三号库")
ck.Add(4,"四号库")
ck.Add(5,"五号库")
我这段代码每个业务窗口都要用到，我想把他做成全局代码这样就能在所有的地方引用！
但是一直报错，我应该把这段代码放在那里才能一次定义，全局使用！
-- 发布时间：2020/4/6 9:53:00
--
使用自定义函数：http://www.foxtable.com/webhelp/topics/1486.htm
比如函数名称abc
Dim ck As New Dictionary(Of Integer, String)
ck.Add(1,"一号库")
ck.Add(2,"二号库")
ck.Add(3,"三号库")
ck.Add(4,"四号库")
ck.Add(5,"五号库")
ck.Add(1,"一号库")
ck.Add(2,"二号库")
ck.Add(3,"三号库")
ck.Add(4,"四号库")
ck.Add(5,"五号库")
return ck
调用
dim ck As Dictionary(Of Integer, String) = Functions.Execute("abc")
-- 发布时间：2020/4/6 17:06:00
--
谢谢！
我现在的解决方法是在全局代码里面先 定义ck
Public ck As New Dictionary(Of Integer, String)
然后在项目事件 AfterOpenProject 里面赋值！
ck.Add(1,"欧阳")
ck.Add(2,"办公室")
ck.Add(3,"总库")
ck.Add(4,"界首")
ck.Add(5,"周山")
ck.Add(6,"江川")
然后
在其他事件里面调用
ck(1)
-- 发布时间：2020/4/6 17:07:00
--
此主题相关图片如下：1.jpg
-- 发布时间：2020/4/6 17:09:00
--
此主题相关图片如下：2.jpg