帮助中处理筛选框:
Table有一个名为ShowCheckBox的逻辑属性，此属性默认为False，设为True，将在行号列显示复选框：

For Each r As Row In Tables("订单").Rows
    If  r.Checked = True
        Dim sum As Double = Tables("订单").Compute("Sum(数量)")
        MessageBox.show(sum)
        
    End If
Next

这样写sum取到的是所有列的值,
   Dim sum As Double = Tables("订单").Compute("Sum(数量), "r.Checked = True" )
如果只要筛选框打勾行的合计值,加粗字体这里还应该怎么写?

 无法直接写条件，必须循环每一行，进行合计

Dim sum As Double = 0
For Each r As Row In Tables("订单").GetCheckedRows
    sum += r("数量")
Next
MessageBox.show(sum)