此主题相关图片如下：合计模式下合并.jpg
If e.Sender.SelectedPage.Text = "UV单号" Then
MessageBox.Show("UV单号为:'" & dth & "' 请确认 UV单号是否正确!")
Dim dt As DataTable
DataTables("zzmjcomtxmxhz").LoadFilter = "[单号] = '" & dth & "' and gx='UV线' "
DataTables("zzmjcomtxmxhz").Load()
dt=DataTables("zzmjcomtxmxhz")
Dim g As New CrossTableBuilder("统计表10", dt)
g.HGroups.AddDef("mgBH","线形编号")
g.HGroups.AddDef("uvd","UV底")
g.HGroups.AddDef("cz","材质")
g.HGroups.AddDef("dh","订单")
g.VGroups.AddDef("xd")
g.Totals.AddDef("sl", "sl")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Decimals = 0
g.Subtotal = True
g.Build()
e.Form.Controls("Table10").Table.DataSource =g.BuildDataSource
Tables("线条下料计划_Table10").AutoSizeCols
Tables("线条下料计划_Table10").Cols.Frozen = 1
MessageBox.Show("'" & dth & "' UV单号生成完成 !")
End I f
请教如上代码的交叉统计 如何合并相同内容的单元格
加好友 
发短信
Post By：2019/7/26 17:35:00 [只看该作者]
