以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表列名或者列标题改变问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142584)

--  作者:Dansty
--  发布时间:2019/10/31 14:08:00
--  表列名或者列标题改变问题

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20191031140543.png
图片点击可在新窗口打开查看
我这边想实现点击菜单栏的按钮,列名或者列标题就相应的改变,目前的代码实现了点击后增加相应的列,但是希望是每次点击不同的按钮,列名或列标题是改变的,而不是在已有的基础上增加列,请帮忙看下代码,告知该怎么改
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:daima.txt


--  作者:有点蓝
--  发布时间:2019/10/31 14:19:00
--  
还是改标题吧,频繁的更改列名99.9%情况下都是一种失败的的设计。

参考:http://www.foxtable.com/webhelp/topics/1275.htm

With DataTables("表A")
    .DataCols(
Tables("AA").ColSel).Caption = e.ComboBox.Text
    .BuildHeader()

End
 With

--  作者:Dansty
--  发布时间:2019/10/31 16:30:00
--  
我这边点击组合框的选项后,组合框里的内容对应好几个值,将这些值作为列标题,该怎么改代码呢,就是.DataCols(Tables("表B").ColSel).Caption = e.ComboBox.Text 中的e.ComboBox.Text其实是一个集合,该怎么改?
--  作者:有点蓝
--  发布时间:2019/10/31 16:45:00
--  
e.ComboBox.Text就是组合框显示的文本,一个字符串,怎么可能是集合。搞不懂,截图或者上传实例说明
--  作者:Dansty
--  发布时间:2019/10/31 17:01:00
--  
同一个组合框里的标签内容有:1和2
假如我选择的组合框的内容是1,那么展示出来的表头就是林地、耕地;
假如我选择的组合框的内容是2,那么展示出来的表头就是苹果、香蕉、梨;



--  作者:有点蓝
--  发布时间:2019/10/31 17:06:00
--  
if e.ComboBox.Text = "1" then
With DataTables("表A")
    .DataCols(
Tables("AA").ColSel).Caption = "林地、耕地"
    .BuildHeader()
End
 With
elseif e.ComboBox.Text = "2" then
With DataTables("表A")
    .DataCols(
Tables("AA").ColSel).Caption = "苹果、香蕉、梨"
    .BuildHeader()
End
 With
end if