主题：用代码设置表的列属性不能保存

想把所有表中的数字列设置为千分位带两位小数的显示格式：

For Each dt As DataTable In DataTables
       For Each dc As DataCol In dt.DataCols
        If dc.IsNumeric Then
        dc.SetFormat("n")
        End If
    Next
Next

在“命令窗口”执行代码，执行后表的数字显示是#,###.00格式，但重新打开项目，数字又显示为原始格式了，

这是为什么？要怎样才能达到代码修改格式的目的？

谢谢指点,在AfterOpenProject加入这段代码非常非常省事!