Foxtable(狐表)用户栏目专家坐堂 → 下拉窗口DropDownForm能否不绑定表?


  共有1755人关注过本帖树形打印复制链接

主题:下拉窗口DropDownForm能否不绑定表?

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


加好友 发短信
等级:二尾狐 帖子:573 积分:2961 威望:0 精华:0 注册:2016/10/27 14:33:00
  发帖心情 Post By:2016/11/20 12:01:00 [显示全部帖子]

 没理解你的意思?截图或上传实例说明

 回到顶部
帅哥哟,离线,有人找我吗?
有点青
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:573 积分:2961 威望:0 精华:0 注册:2016/10/27 14:33:00
  发帖心情 Post By:2016/11/20 19:03:00 [显示全部帖子]

Dim t As Table = Tables("窗口3_table1")

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("内容", Gettype(String))
dtb.AddDef("拼音", Gettype(String))

t.DataSource =dtb.BuildDataSource

Dim Lst As New List(Of String)
For Each dr As DataRow In DataTables("表A").Select("")
    lst.Add(dr("型号") & "|" & dr("拼音"))
Next
For Each dr As DataRow In DataTables("表B").Select("")
    lst.Add(dr("名称") & "|" & dr("拼音"))
Next

For Each nm As String In lst
    Dim ss() As String = nm.Split("|")
    Dim r As Row = t.addnew
    r("内容") = ss(0)
    r("拼音") = ss(1)
Next


 回到顶部