主题：按钮交叉统计如何设置只统计显示行？？/

这样？

Dim g As New CrossTableBuilder("采购定单金额分供应商统计", DataTables("采购定单"))
g.HGroups.AddDef("供应商")
g.VGroups.AddDef("日期", DateGroupEnum.Year, "{0}年")
g.Filter = Tables("采购定单").Filter
g.Totals.AddDef("金额", "采购金额")
g.OrderByTotal = True
g.HorizontalTotal = True
g.Build()
MainTable = Tables("采购定单金额分供应商统计")

其实第一和第二是同一个问题，因为交叉统计有Filter方法，所以你只需设置相应的条件即可。