Foxtable(狐表)用户栏目专家坐堂 → ComboBox值改变的时候更新Dropsownbox控件的下拉窗口数据


  共有2443人关注过本帖平板打印复制链接

主题:ComboBox值改变的时候更新Dropsownbox控件的下拉窗口数据

帅哥哟,离线,有人找我吗?
zhaozilong
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:14 积分:191 威望:0 精华:0 注册:2020/12/30 14:12:00
ComboBox值改变的时候更新Dropsownbox控件的下拉窗口数据  发帖心情 Post By:2021/1/20 16:28:00 [只看该作者]

想做一个联动效果 通过修改控件为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的下拉窗口
图片点击可在新窗口打开查看




 回到顶部