- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 用代码设置的列标题不能保存 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=21933)
-- 发布时间：2012/7/27 18:16:00
-- 用代码设置的列标题不能保存
Sub ZhongWenCaption()
Dim cdt As DataTable
cdt =CurrentTable.DataTable
For Each dc As DataCol In cdt .DataCols
Dim dr As DataRow
dr=DataTables("fielditem").Find("itemid = \'" & dc.Name & "\'")
If dr IsNot Nothing Then \'如果找到的话
dc.Caption=dr("itemdesc")
End If
Next
cdt.BuildHeader()
End Sub
我用上面的代码批量设置列的中文标题,但总保存不了,后来手工编辑一个,再打开还在,但代码成功设置的就消失了! 诡异现象,希望专家会诊.
-- 发布时间：2012/7/27 18:41:00
--
不詭異,從來如此
-- 发布时间：2012/7/27 18:46:00
--
那是 为.....什么呢?出于什么考虑
[此贴子已经被作者于2012-7-27 18:46:46编辑过]
-- 发布时间：2012/7/27 18:51:00
--
數據庫嘛,即使是標題,也是極少變來變去的,需要的話自己編碼就是.
-- 发布时间：2012/7/27 18:55:00
--
用代码设置成功后,在查看表结里面保存下还不行,还需要加个空格存后,在去掉空格再存下才接受,这不是折磨人吗? 表那么多列那么多,想用代码做机械工作都不行,fox需要努力呀.
-- 发布时间：2012/7/27 18:59:00
--
使用过程当然不是变来变去,是提高开发时候的效率,那么多标题需要写入.别的开发工具自己都有vba
-- 发布时间：2012/7/27 19:00:00
--
需要的話自己編碼就是,是什么意思呢? 就是编码设置的标题不能保存这个问题呀.
-- 发布时间：2012/7/27 19:31:00
--
设计是直接把列名改成你所要的列名就可以了,你这个当然保存不了啦.这个是用于动态变换列标题.
-- 发布时间：2012/7/28 9:30:00
--
fotable中的设置，基本上都有动态和永久之分，通过代码设置，是动态的，设置后生效，关闭后无效，通过菜单设置的，永久有效。
例如列标题，如果你运行过程中需要动态设置标题，你就用代码，否则直接通过菜单修改：
http://www.foxtable.com/help/topics/0036.htm
-- 发布时间：2012/8/1 9:28:00
--
狐狸爸爸
还是最老道! 到了9楼终于回答到点子上了,原来foxtable和access这点不同,我以为用代码批量设置可以提高效率.