以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 关于自定义函数 实现COMBOBOX下拉列表的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=122761) |
-- 作者:aoc103 -- 发布时间:2018/8/1 19:55:00 -- 关于自定义函数 实现COMBOBOX下拉列表的问题 我自己写了自定义函数如下 自定义函数
Dim Dp_form As String \'窗口参数 Dim Dp_combobox As String \'下拉列表参数 Dim Dp_val As String \'下拉类别 Dim cmb As WinForm.ComboBox cmb = Forms(Dp_form).Controls(Dp_combobox) Dim dt=DataTables("tbl_词组").GetComboListString("名称", "词组类型 = \'" & Dp_val & "\'") cmb.ComboList = dt 然后在 相关的COMBOBOX控件上的 MOUSE ENTER事件上写了以下调用代码 Functions.Execute("Droplist1","商品单","Combobox9","产品分类") 结果显示失败 显示找不到名称为“”的控件 .NET Framework 版本:2.0.50727.8745 Foxtable 版本:2018.7.28.1 错误所在事件:自定义函数Droplist1 详细错误信息: 调用的目标发生了异常。 未将对象引用设置到对象的实例。 请问狐爸 是哪里出错了? [此贴子已经被作者于2018/8/1 19:57:29编辑过]
|
-- 作者:有点甜 -- 发布时间:2018/8/1 20:52:00 -- Dim Dp_form As String = args(0) Dim Dp_combobox As String = args(1) Dim Dp_val As String = args(2) Dim cmb As WinForm.ComboBox cmb = Forms(Dp_form).Controls(Dp_combobox) Dim dt=DataTables("tbl_词组").GetComboListString("名称", "词组类型 = \'" & Dp_val & "\'") cmb.ComboList = dt |
-- 作者:aoc103 -- 发布时间:2018/8/1 22:02:00 -- 问题解决了 Dim Dp_form As String \'窗口参数 Dim Dp_combobox As String \'下拉列表参数 Dim Dp_val As String \'下拉类别 定义的参数并列入数组,看来我帮忙文件没有看透 |