专家坐堂-统计不生成统计表单Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim ks As String = e.Form.Controls("TextBox1").Value

If ks Is Nothing Then

MessageBox.show("请输入单号ID")

Else

Dim g As New CrossTableBuilder("商品明细单", DataTables("rs_indepot"))

g.HGroups.AddDef("proname", "商品名称")

g.HGroups.AddDef("probar", "商品条码")

g.Totals.AddDef("sourcecode", AggregateEnum.Count, "溯源码")

g.OrderByTotal = True

g.HorizontalTotal = True

g.VerticalTotal = True

g.FromServer = True

g.Filter = "ordercid = \'" & ks & "\'"

g.Build()

MainTable = Tables("商品明细单")

MainTable.AutoSizeCols(5)

MainTable.Focus()

End If