此主题相关图片如下：111111.png

这个表，我要让 日期、采购单号、、、，还有下面的小计行，我要把字体设置为粗体显示，这个怎么弄呀

Tables("其它采购总表").Filter ="[日期] = #" & Date.Today & "#"

Dim qc As Table = Tables("其它采购总表")

Dim qcr As Subtotalgroup

qc.SubtotalGroups.Clear()

qc.GroupAboveData = False

qc.TreeVisible = False

qc.SpillNode = True

qcr = New Subtotalgroup

qcr.Aggregate = AggregateEnum.Sum

qcr.GroupOn = "日期"

qcr.TotalOn = "总金额"

qcr.Caption = "{0}日小计"

qcr.DateGroup = DateGroupEnum.Day

qc.SubtotalGroups.Add(qcr)

qc.Subtotal()

在下面的代码中添加什么呀，举个例子吧，请教了