Tables("月度考核填报_Table1").SetColVisibleWidth("考核项目|80|考核指标|200|目标值|600|指标完成情况|200|单项权重|60|自我评定完成分值|60|病假天数|60|病假扣分|60|事假天数|60|加班天数")
DataTables("月度考核填报_Table1").DataCols.Add("扣分合计", Gettype(Double), "[病假天数] * (-2) +[事假天数]*(-5)")
DataTables("月度考核填报_Table1").Datacols.Add("合计分数", Gettype(Double),"-10+sum(自我评定完成分值)+sum(扣分合计)")
With Tables("月度考核填报_Table1")
.MergeMode = MergeModeEnum.Standard '标准合并模式
.MergeCols.Clear() '清除原来的合并列
.MergeCols.Add("合计分数") '加入要合并的列
.MergeSort = "合计分数" '设置合并模式下的排序方式
.AllowMerge = True '启用合并模式
End With

此主题相关图片如下:_}5_r~v1{13xwho0$b(mh2s.png

没有作用 是不是因为用datacol.add添加的所以没作用