- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何切换表标题与列名？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65519)
-- 发布时间：2015/3/17 16:53:00
-- [求助]如何切换表标题与列名？
原外部表-数据表列名是英文的， 在狐表可以用列标题方式重命名。
但如何 在列标题与列名间快速切换，以便调试时查看
-- 发布时间：2015/3/17 16:57:00
--
\'显示列名
For Each c As Col In Tables("表A").Cols
c.Caption= c.Caption & "(" & c.name & ")"
Next
DataTables("表A").BuildHeader
\'显示标题 隐藏列名
For Each c As Col In Tables("表A").Cols
c.Caption= c.Caption.split("(")(0)
Next
DataTables("表A").BuildHeader
-- 发布时间：2015/3/17 17:00:00
--
好久没来，BIN老师还是一如即往的热情回复。
-- 发布时间：2015/3/17 17:01:00
--
name转caption
For Each dc As DataCol In DataTables("表A").DataCols
If dc.DefaultValue = "" Then
dc.DefaultValue = iif(dc.Caption>"", dc.Caption, dc.Name)
End If
dc.Caption = dc.Name
Next
DataTables("表A").BuildHeader
标题转名称
For Each dc As DataCol In DataTables("表A").DataCols
If dc.DefaultValue <> "" Then
dc.Caption = dc.DefaultValue
End If
Next
DataTables("表A").BuildHeader