- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 下拉窗口DropDownForm能否不绑定表? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93085)
-- 发布时间：2016/11/20 11:55:00
-- 下拉窗口DropDownForm能否不绑定表?
我想根据多个表的不同列组合成新的列表项目,添加到下拉窗口的table中,
但无法取消DropDownForm 控件中默认绑定表,有什么别的方法吗?
-- 发布时间：2016/11/20 12:01:00
--
没理解你的意思？截图或上传实例说明
-- 发布时间：2016/11/20 12:34:00
--
下拉窗口中有许多空白区域,可能是绑定空白表造成的,如何去掉?
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目112.foxdb |
-- 发布时间：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