想做一个联动效果 通过修改控件为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的下拉窗口
加好友 
发短信
Post By：2021/1/20 16:28:00 [显示全部帖子]
