主题：[求助]单位代码填充

这个是单位少的情况并且是在表属性中的DataColChanged中写入的代码，我如果调入初中或小学成绩，单位就是100多个了。我是想在“成绩库”表中的窗口中增加了一个“代码填充”按钮，写入代码后，直接点击按钮就完成。

又麻烦了，这样增加“校名设置”数据表后，在进行统计时报错：
此主题相关图片如下：错误提示.jpg

怎么办？请指教。谢谢！

 最后变成这样。对了，楼主有时间的话，对代码重构一下，代码略显冗余。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:高中期末成绩统计程序.table

谢谢！我测试了总分统计时没有错误提示，但分科统计时又有同样的错误代码提示。那错误提示是怎么回事？

 

因为你在统计的时候，用到

For Each tb As DataTable In DataTables

Next

这是遍历所有的数据表，我只是加了一个判断，而已。

喔，在If bm.name <> "成绩库"后面加 AndAlso bm.Name <> "校名设置"。

谢谢！我准备进一步简化代码，有的共用代码写在内部命令里，用Functions.Execute("筛选记录",Tables("成绩库"))调用。这是仿照我师傅的方法整的。遇到难处时再向您们请教。

行高我已搞定，而列宽一直未成功。

Tables("总分分数段").AutoSizeCols() 这是自动设置订单表的所有列的宽度的代码。

我想把列宽设为45像素。怎么设定？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:填充代码如何简化.rar

还有就是填充代码如何简化？

上面是“全县合计”和各单位的合计的统计数据填充代码，其中红色显示的是“全县合计”和各单位的合计的填充代码中都有，鲜绿色显示的7个单位的合计的填充代码中都有。如何简化？请指教。