主题：关于SQLGroupTableBuilder统计条件的设置

Dim nf As WinForm.TextBox = e.Form.Controls("TextBox1")

If nf.Value = "" OrElse nf.Value.Length <> 4 Then

    MessageBox.Show("请输入正确的统计年份!")

Else

    Dim g As New GroupTableBuilder("上年度统计", DataTables("订单明细"))

    g.Groups.AddDef("部门")

    g.Groups.AddDef("业务员")

    g.Groups.AddDef("产品类别")

    g.Groups.AddDef("产品名称")

    g.Totals.AddDef("数量")

    g.FromServer = True

    g.Filter = "[签约年份] = '" & nf.Value & "'"

    g.Build()

    MainTable = Tables("上年度统计")

End If