主题：用代码设置的列标题不能保存

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

我用上面的代码批量设置列的中文标题,但总保存不了,后来手工编辑一个,再打开还在,但代码成功设置的就消失了! 诡异现象,希望专家会诊.

不詭異,從來如此

那是 为.....什么呢?出于什么考虑

數據庫嘛,即使是標題,也是極少變來變去的,需要的話自己編碼就是.

用代码设置成功后,在查看表结里面保存下还不行,还需要加个空格存后,在去掉空格再存下才接受,这不是折磨人吗? 表那么多列那么多,想用代码做机械工作都不行,fox需要努力呀.

使用过程当然不是变来变去,是提高开发时候的效率,那么多标题需要写入.别的开发工具自己都有vba

需要的話自己編碼就是,是什么意思呢? 就是编码设置的标题不能保存这个问题呀.

设计是直接把列名改成你所要的列名就可以了,你这个当然保存不了啦.这个是用于动态变换列标题.

fotable中的设置，基本上都有动态和永久之分，通过代码设置，是动态的，设置后生效，关闭后无效，通过菜单设置的，永久有效。

例如列标题，如果你运行过程中需要动态设置标题，你就用代码，否则直接通过菜单修改：

http://www.foxtable.com/help/topics/0036.htm

 

狐狸爸爸

还是最老道! 到了9楼终于回答到点子上了,原来foxtable和access这点不同,我以为用代码批量设置可以提高效率.