- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- ComboBox值改变的时候更新Dropsownbox控件的下拉窗口数据 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=160108)
-- 发布时间：2021/1/20 16:28:00
-- ComboBox值改变的时候更新Dropsownbox控件的下拉窗口数据
想做一个联动效果 通过修改控件为ComboBox客户类型的值通过接口调用，读取客户信息把数据赋值给dropdownbox控件的客户名称
ComboBox 控件 ValueChanged事件中的代码
Dim result As String
result =hc.GetData()
Dim jo As jarray=jarray.parse(result) \'接口返回数据序列化
Dim dtb As new DataTableBuilder("客户列表")
dtb.AddDef("客户ID",Gettype(String),255)
dtb.AddDef("客户名称",Gettype(String),255)
dtb.AddDef("统一信用代码",Gettype(String),255)
dtb.AddDef("联系地址",Gettype(String),255)
dtb.AddDef("联系电话",Gettype(String),255)
dtb.AddDef("开户银行",Gettype(String),255)
dtb.AddDef("银行账号",Gettype(String),255)
dtb.AddDef("创建时间",Gettype(Date))
dtb.Build()
Forms("客户列表下拉").Controls("Table1").DataSource = dtb.BuildDataSource()
\'Tables("客户列表下拉_Table1").DataSource = dtb.BuildDataSource()
For Each jt As Jtoken In jo
With Tables("客户列表下拉_Table1")
Dim r As Row=.addnew()
For Each c As Col In .Cols
r(c.name)=jt(c.name)
Next
End With
Next
End If
现在页面报错 怎么把接口返回的数据赋值给dropsownbox的下拉窗口
-- 发布时间：2021/1/20 16:33:00
--
代码放到下拉窗口的DropDownOpening事件
-- 发布时间：2021/1/20 16:53:00
--
那ComboBox 控件 ValueChanged事件中是获取到值 定义一个全局变量 然后在下拉窗口的DropDownOpening事件中取值吗？
-- 发布时间：2021/1/20 16:55:00
--
不需要什么全局变量，直接取：Forms("某某窗口").Controls("ComboBox").value
-- 发布时间：2021/1/20 17:09:00
--
嗯 好的， 还有个问题， 在来回选择ComboBox的值 然后点击下拉窗口的时候 上一次查询出来的数据怎么清空掉
-- 发布时间：2021/1/20 17:17:00
--
http://www.foxtable.com/webhelp/topics/0394.htm
-- 发布时间：2021/1/20 17:24:00
--
嗯 好的， 谢谢老师了