以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于自定义函数 实现COMBOBOX下拉列表的问题  (http://foxtable.net/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 \'下拉类别

定义的参数并列入数组,看来我帮忙文件没有看透