 加好友  发短信
等级：三尾狐
帖子：787
积分：6349
威望：0
精华：0
注册：2008/9/1 8:26:00
|
 Post By：2009/3/3 17:01:00 [只看该作者]
可能有问题： 1、光标所在行标记，当执行汇总按钮 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
If Filter > "" Then
Tables("总览").Filter = Filter
End If
Dim t As Table = Tables("总览")
Dim g As SubtotalGroup
t.SubtotalGroups.Clear()
t.GroupAboveData = True
t.TreeVisible = True
g = New SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "村名"
g.TotalOn = "设计面积,合格面积,需苗量,保存面积,退耕地,荒山,生态林,经济林,用工量,种苗费,管护费,设计费,粮食折价,现金补助,投资概算,成活率合格_已抚,成活率合格_未抚,需补植_已抚,需补植_未抚,重造面积,空白面积,少面积,未抚育面积,补植补造需苗,退耕生态林,退耕经济林,荒山生态林,荒山经济林,二期生态林,二期经济林,二期现金补助,二期粮食折价"
g.Caption = "{0} "
t.SubtotalGroups.Add(g)
g = New SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "乡名"
g.TotalOn = "设计面积,合格面积,需苗量,保存面积,退耕地,荒山,生态林,经济林,用工量,种苗费,管护费,设计费,粮食折价,现金补助,投资概算,成活率合格_已抚,成活率合格_未抚,需补植_已抚,需补植_未抚,重造面积,空白面积,少面积,未抚育面积,补植补造需苗,退耕生态林,退耕经济林,荒山生态林,荒山经济林,二期生态林,二期经济林,二期现金补助,二期粮食折价"
g.Caption = "{0} "
t.SubtotalGroups.Add(g)
g = New SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "造林年度"
g.TotalOn = "设计面积,合格面积,需苗量,保存面积,退耕地,荒山,生态林,经济林,用工量,种苗费,管护费,设计费,粮食折价,现金补助,投资概算,成活率合格_已抚,成活率合格_未抚,需补植_已抚,需补植_未抚,重造面积,空白面积,少面积,未抚育面积,补植补造需苗,退耕生态林,退耕经济林,荒山生态林,荒山经济林,二期生态林,二期经济林,二期现金补助,二期粮食折价"
g.Caption = "{0} "
t.SubtotalGroups.Add(g)
g = New SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "设计面积,合格面积,需苗量,保存面积,退耕地,荒山,生态林,经济林,用工量,种苗费,管护费,设计费,粮食折价,现金补助,投资概算,成活率合格_已抚,成活率合格_未抚,需补植_已抚,需补植_未抚,重造面积,空白面积,少面积,未抚育面积,补植补造需苗,退耕生态林,退耕经济林,荒山生态林,荒山经济林,二期生态林,二期经济林,二期现金补助,二期粮食折价"
g.Caption = "合计"
t.SubtotalGroups.Add(g)
t.Subtotal()弹出  此主题相关图片如下：标记.jpg  此主题相关图片如下：标记1.jpg  if e.row.Equals(e.table.current) Then
e.Style = "标记"
End if重新执行一下光标所在行颜色又可见
[此贴子已经被作者于2009-3-3 17:08:41编辑过]
|
|
