Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
可以继续往下输入,直到最匹配的。
这样处理是没有意义的,这样只能等到最后输完了(可能只剩下最后几个字母时),才能选择,提高不了效率。
这样应该是基本可以了,建议同时增加:在辅助列表的某个词上鼠标双击可以输入的方式。
文本对象的Width,X,y等引用表中數據的Bug沒有修正.
文本对象的Width,X,y等引用表中數據的Bug沒有修正.
呵呵,这个不是bug,要在文档中加以说明的。
If ( e.Form.Controls("CheckBox1").Checked Or e.Form.Controls("CheckBox2").Checked Or e.Form.Controls("CheckBox3").Checked Or e.Form.Controls("CheckBox4").Checked ) = False Then
Messagebox.Show("至少选取一个分组项")
Return
End If
Dim Filter As String
With e.Form.Controls("ComboBox1")
If .Value IsNot Nothing Then
Filter = "造林年度= '" & .Value & "'"
End If
End With
With e.Form.Controls("ComboBox2")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "乡名= '" & .Value & "'"
End If
End With
With e.Form.Controls("ComboBox3")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "村名 = '" & .Value & "'"
End If
End With
With e.Form.Controls("ComboBox4")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "造林类别 = '" & .Value & "'"
End If
End With
With e.Form.Controls("ComboBox5")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "林种 = '" & .Value & "'"
End If
End With
Dim g As New GroupTableBuilder("分组统计", DataTables("总览"),Filter)
If e.Form.Controls("CheckBox1").Checked Then g.Groups.AddDef("造林年度")
If e.Form.Controls("CheckBox2").Checked Then g.Groups.AddDef("乡名")
If e.Form.Controls("CheckBox3").Checked Then g.Groups.AddDef("村名")
If e.Form.Controls("CheckBox4").Checked Then g.Groups.AddDef("造林树种_主要树种","主要树种")'添加村名列用于分组
g.Totals.AddDef("小班号",AggregateEnum.Count,"小班个数")
g.Totals.AddDef("设计面积","面积合计") '添加数量列用于统计
g.Totals.AddDef("退耕地") '添加数量列用于统计
g.Totals.AddDef("退耕生态林") '添加数量列用于统计
g.Totals.AddDef("退耕经济林") '添加数量列用于统计
g.Totals.AddDef("荒山") '添加数量列用于统计
g.Totals.AddDef("荒山生态林") '添加数量列用于统计
g.Totals.AddDef("荒山经济林") '添加数量列用于统计
g.Totals.AddDef("生态林") '添加数量列用于统计
g.Totals.AddDef("经济林") '添加数量列用于统计
g.Totals.AddDef("混交面积") '添加数量列用于统计
g.Totals.AddDef("混交退耕") '添加数量列用于统计
g.Totals.AddDef("混交荒山") '添加数量列用于统计
g.Totals.AddDef("乔木退耕") '添加数量列用于统计
g.Totals.AddDef("乔木荒山") '添加数量列用于统计
g.Totals.AddDef("灌木退耕") '添加数量列用于统计
g.Totals.AddDef("灌木荒山") '添加数量列用于统计
g.Totals.AddDef("灌木面积") '添加数量列用于统计
g.Totals.AddDef("乔木面积") '添加数量列用于统计
g.Totals.AddDef("国有退耕") '添加数量列用于统计
g.Totals.AddDef("国有荒山") '添加数量列用于统计
g.Totals.AddDef("集体退耕") '添加数量列用于统计
g.Totals.AddDef("集体荒山") '添加数量列用于统计
g.Totals.AddDef("个人退耕") '添加数量列用于统计
g.Totals.AddDef("个人荒山") '添加数量列用于统计
g.Totals.AddDef("平坡退耕") '添加数量列用于统计
g.Totals.AddDef("退耕斜坡") '添加数量列用于统计
g.Totals.AddDef("缓坡退耕") '添加数量列用于统计
g.Totals.AddDef("缓坡荒山") '添加数量列用于统计
g.Totals.AddDef("斜坡退耕") '添加数量列用于统计
g.Totals.AddDef("斜坡荒山") '添加数量列用于统计
g.Totals.AddDef("陡坡退耕") '添加数量列用于统计
g.Totals.AddDef("陡坡荒山") '添加数量列用于统计
g.Totals.AddDef("荒山营造") '添加数量列用于统计
g.Totals.AddDef("荒山管护") '添加数量列用于统计
g.Totals.AddDef("荒山种苗") '添加数量列用于统计
g.Totals.AddDef("荒山设计") '添加数量列用于统计
g.Totals.AddDef("退耕营造") '添加数量列用于统计
g.Totals.AddDef("退耕管护") '添加数量列用于统计
g.Totals.AddDef("退耕种苗") '添加数量列用于统计
g.Totals.AddDef("退耕设计") '添加数量列用于统计
g.Totals.AddDef("用工量") '添加数量列用于统计
g.Totals.AddDef("现金补助") '添加数量列用于统计
g.Totals.AddDef("种苗费") '添加数量列用于统计
g.Totals.AddDef("管护费") '添加数量列用于统计
g.Totals.AddDef("粮食折价") '添加数量列用于统计
g.Totals.AddDef("投资概算") '添加数量列用于统计
g.Totals.AddDef("设计费") '添加数量列用于统计
g.Totals.AddDef("成活率合格_已抚","合格已抚") '添加数量列用于统计
g.Totals.AddDef("成活率合格_未抚","合格未抚") '添加数量列用于统计
g.Totals.AddDef("需补植_已抚","补植已抚") '添加数量列用于统计
g.Totals.AddDef("需补植_未抚","补植未抚") '添加数量列用于统计
g.Totals.AddDef("重造面积") '添加数量列用于统计
g.Totals.AddDef("空白面积") '添加数量列用于统计
g.Totals.AddDef("少面积") '添加数量列用于统计
g.Totals.AddDef("未抚育面积") '添加数量列用于统计
g.Totals.AddDef("退耕合格已抚") '添加数量列用于统计
g.Totals.AddDef("退耕合格未抚") '添加数量列用于统计
g.Totals.AddDef("退耕补植已抚") '添加数量列用于统计
g.Totals.AddDef("退耕补植未抚") '添加数量列用于统计
g.Totals.AddDef("退耕重造面积") '添加数量列用于统计
g.Totals.AddDef("退耕空白面积") '添加数量列用于统计
g.Totals.AddDef("退耕少面积") '添加数量列用于统计
g.Totals.AddDef("退耕未抚育面积") '添加数量列用于统计
g.Totals.AddDef("补植补造需苗") '添加数量列用于统计
g.Totals.AddDef("实生苗") '添加数量列用于统计
g.Totals.AddDef("嫁接苗") '添加数量列用于统计
g.Totals.AddDef("需苗量") '添加数量列用于统计
g.Totals.AddDef("二期生态林") '添加数量列用于统计
g.Totals.AddDef("二期经济林") '添加数量列用于统计
g.Totals.AddDef("二期现金补助") '添加数量列用于统计
g.Totals.AddDef("二期粮食折价") '添加数量列用于统计
g.VerticalTotal = True '自动垂直汇总
g.Build()
MainTable = Tables("分组统计")