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

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

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

狐狸爸爸

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