主题：列的设置问题

 

列设置问题：

 

1 “表格列设置”表中的列“列名”内容来自“货品资料”表的所有列名；

 

2 “表格列设置”表中的列“标题”，输入内容后“货品资料”表的列标题也能随之更改；

 

3 “表格列设置”表中的列“显示”打勾时，对应的列名在“货品资料”表中显示，否则隐藏；

 

4 “表格列设置”表中的列“回车跳转”数据表来自“货品资料”表的所有列名，选择后“货品资料”表的相关列按回车能跳转到指定列；

 

5 “表格列设置”表中的列“隐藏重复”打勾时，“货品资料”表 相邻列如果内容相同则多行合一。

 

以上问题请帮忙解决，谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试18.table

此主题相关图片如下：列设置2.jpg

你的问题和你贴出的图要一致，图中哪有“列名”、“标题” ？？？    还有，那个“字段标题”是不是“字段名”？？？  

 

1 略；

 

2 “表格列设置”表中的列“标题”，输入内容后“货品资料”表的列标题也能随之更改；

Dim cl As String = Tables("表格列设置").current("列名")
Dim r As Row = Tables("表格列设置").current
With DataTables("货品资料")
    .DataCols(cl).Caption = r("标题")
    .BuildHeader()
End With

 

3 “表格列设置”表中的列“显示”打勾时，对应的列名在“货品资料”表中显示，否则隐藏；

用 Visible 搞定   类似：Tables("订单").Cols("折扣").Visible = false

 

4 “表格列设置”表中的列“回车跳转”数据表来自“货品资料”表的所有列名，选择后“货品资料”表的相关列按回车能跳转到指定列；

 

用 Select ： Tables("货品资料").Select(0,0)