以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  合并单元格问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121442)
--  作者：小骨头ror
--  发布时间：2018/7/6 11:27:00
--  合并单元格问题

图片点击可在新窗口打开查看此主题相关图片如下：n4@8~tv`k7f80$62i6t3xa.png
图片点击可在新窗口打开查看


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),"sum(自我评定完成分值)+sum(扣分合计)")

表是sqltable表  想把合计分数这栏搞得好看点 没有这么多重复项   怎么搞定
--  作者：有点甜
--  发布时间：2018/7/6 11:33:00
--  

参考，设置合并模式

 

http://www.foxtable.com/webhelp/scr/1373.htm

 
--  作者：小骨头ror
--  发布时间：2018/7/6 13:26:00
--  

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添加的所以没作用
--  作者：有点甜
--  发布时间：2018/7/6 14:31:00
--  

 

With Tables("月度考核填报_Table1")
    .MergeMode = MergeModeEnum.Free
    .MergeCols.Clear() \'清除原来的合并列
    .MergeCols.Add("合计分数") \'加入要合并的列
    .MergeSort = "合计分数" \'设置合并模式下的排序方式
    .AllowMerge = True \'启用合并模式
End With