For Each cl As Col In CurrentTable.Cols
Output.Show(cl.Name)
Next
客户称呼
审核
审核信息
编辑者
创建者
权限组
备注
转换成 客户称呼|审核|审核信息|编辑者|创建者|权限组|备注
很简单的拼接字符串用法呀,类似:
http://www.foxtable.com/webhelp/topics/2228.htm,逗号改为|即可
Dim ids As String
For Each cl As Col In CurrentTable.Cols
ids = ids & "|" & cl.Name
Next
ids= ids.Trim("|")