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

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

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