以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 如何将表A的列名变成组合窗口录入的内容 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128181) |
||||
-- 作者:zhuxinhui -- 发布时间:2018/11/30 15:07:00 -- 如何将表A的列名变成组合窗口录入的内容 如何才能把表A的列名变成"第一列|第二列|第三列|第四列|第五列|第六列|第七列,用做窗口1中的组合窗口录入的内容 此主题相关图片如下:88.gif |
||||
-- 作者:zhuxinhui -- 发布时间:2018/11/30 15:08:00 -- 案例 |
||||
-- 作者:zhuxinhui -- 发布时间:2018/11/30 15:08:00 --
|
||||
-- 作者:zhuxinhui -- 发布时间:2018/11/30 15:09:00 -- 此主题相关图片如下:99.gif |
||||
-- 作者:zhuxinhui -- 发布时间:2018/11/30 15:10:00 -- Dim cnt As Integer = DataTables("表A").DataCols.Count - 1 Dim nms(cnt-1) As String For i As Integer = 0 To cnt - 1 nms(i) = DataTables("表A").DataCols(i).name output.show(nms(i) ) Next Dim cmb As WinForm.ComboBox cmb = Forms("窗口1").Controls("ComboBox1") cmb.ComboList = nms.Length\'(cnt-1) \'"第一列|第二列|第三列|第四列|第五列|第六列|第七列"
|
||||
-- 作者:zhuxinhui -- 发布时间:2018/11/30 15:10:00 -- 此主题相关图片如下:777.gif |
||||
-- 作者:有点甜 -- 发布时间:2018/11/30 16:19:00 -- Dim str As String = "" For Each c As Col In Tables("表a").cols str &= c.name & "|" Next msgbox(str.trim("|")) |
||||
-- 作者:zhuxinhui -- 发布时间:2018/11/30 16:27:00 -- 多谢有点甜老师,想了大半日的难题,一到你哪就解决了 |