新版本重排会出现以下问题。
此主题相关图片如下：无标题20220426.png
完整代码如下，找到问题了，希望可以得到改善
Dim Astrs() As String = {"即时库存", "可用库存", "CMx单用量", "订单需求", "CMx总用量""} 这里多了个“就会有这样的错误
For Each Astr As String In Astrs
If dt.DataCols.Contains(astr) = False Then dt.DataCols.Add(Astr, GetType(Single))
Next
tb.SetColVisibleWidth("JCC序号|70|料号|163|名称|121|规格|111|单位|46|CMx单用量|88|订单需求|88|CMx总用量|88|JCC数量|88|JCC备注|88")
Dim Lms() As String = {"CMx序号", "名称", "规格", "单位"}
For Each c As Col In tb.Cols
If c.Caption.StartsWith("CMx") Then c.Caption = c.name.Replace("CMx", "")
If c.Caption.StartsWith("JCC") Then c.Caption = c.name.Replace("CC", "")
End If
If lms.Contains(c.Name) Then c.AllowEdit = False
Next
[此贴子已经被作者于2022/4/26 17:41:33编辑过]
加好友 
发短信
Post By：2022/4/26 17:38:00 [只看该作者]
