专家坐堂-[求助] 设置统计表单元格字体颜色Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如果出库数量不等于收费数量，收费数量的字体颜色为红色或者设置整行为红色。

Dim g As New GroupTableBuilder("统计表1", DataTables("门诊疫苗药品出库表"))

Dim dt1 As fxDataSource

g.Groups.AddDef("日期", DateGroupEnum.Year, "年")

g.Groups.AddDef("日期", "月")

g.Groups.AddDef("疫苗药品名称")

g.Groups.AddDef("生产厂家")

g.Groups.AddDef("批号")

g.Groups.AddDef("单位")

g.Groups.AddDef("部门", "收费部门")

g.Totals.AddDef("数量", "出库数量")

g.Decimals = 0

g.FromServer = True

g.Filter = "日期 >= \'" & r1.Value & "\' and 日期 <= \'" & r2.Value & "\'"

dt1 = g.BuildDataSource()

Dim g1 As New GroupTableBuilder("统计表2", DataTables("收费明细"))

Dim dt2 As fxDataSource

g.Groups.AddDef("日期", DateGroupEnum.Year, "年")

g1.Groups.AddDef("日期", "月")

g1.Groups.AddDef("收费项目","疫苗药品名称")

g1.Groups.AddDef("生产厂家")

g1.Groups.AddDef("药品批号","批号")

g1.Groups.AddDef("单位")

g1.Groups.AddDef("收费部门")

g1.Totals.AddDef("数量","收费数量")

g1.Decimals = 0

g1.FromServer = True

g1.Filter = "日期 >= \'" & r1.Value & "\' and 日期 <= \'" & r2.Value & "\' and 已付款 = \'" & True & "\' And 生产厂家 Is not null"

dt2 = g1.BuildDataSource()

Dim nms As String() = {"月","疫苗药品名称","生产厂家","批号","单位","收费部门"}

dt1.Combine(nms,dt2,nms)

Tables("门诊收费查询_table1").DataSource = dt1