Dim tb As Table = Tables(e.Form.Name & "_Table1")
Dim dt As DataTable = tb.DataTable
For Each c As Col In tb.Cols
'For Each c As dataCol In dt.dataCols 测试也不行。
If c.name.StartsWith("Cmx") Then c.Caption = c.name.Replace("Cmx","")
If c.name.StartsWith("CMx") Then c.Caption = c.name.Replace("CMx","")
Next
此主题相关图片如下:无标题20220418.png

已解决,大小写问题!!
[此贴子已经被作者于2022/4/18 1:06:47编辑过]