- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 列标题设置 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=46480)
-- 发布时间：2014/2/24 15:39:00
-- 列标题设置
这个参数表储储了其它所有表的表名/列名,请问怎么把英
文列名用对应的中文名称做为列表题显示???
此主题相关图片如下：qq图片20140224153757.jpg
-- 发布时间：2014/2/24 15:50:00
--
循环遍历这个列,然后去中文列的值设置标题即可.
for each dr as datarow in datatables("条目表")
DataTables(dr("表名")).Caption=dr("标题")
next
-- 发布时间：2014/2/24 16:04:00
--
Initialize
Dim bms As List(Of String) = DataTables("条目表").GetValues("pbc_tnam","pbc_tnam Is Not Null")
For Each bm As String In bms
Dim drs As List(Of DataRow) = DataTables("条目表").Select("pbc_tnam = \'" & bm & "\'")
For Each dr As DataRow In drs
DataTables(bm).DataCols(dr("pbc_cnam")).Caption = dr("pbc_label")
Next
Next
没有例子，没经过测试。