- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]u新版本重排功能有点小问题。 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=176780)
-- 发布时间：2022/4/26 17:38:00
-- [求助]u新版本重排功能有点小问题。
新版本重排会出现以下问题。
此主题相关图片如下：无标题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编辑过]
-- 发布时间：2022/4/26 17:44:00
--
这个本身就是代码的问题。错误的代码当然会有错误的结果
-- 发布时间：2022/4/26 18:40:00
--
以下是引用有点蓝在2022/4/26 17:44:00的发言：
这个本身就是代码的问题。错误的代码当然会有错误的结果
这个本身就是代码的问题。错误的代码当然会有错误的结果
我也知道是代码的问题，错误的代码不是应该提示代码错误吗？而不是将所有的都补空格呀。
同样的代码，放在旧版本的就不会出现这样的错误！
-- 发布时间：2022/4/26 20:37:00
--
恰恰是因为旧版的编辑器功能弱所以才不会这样。
新版是有错误提示的
此主题相关图片如下：1.png