主题：[求助]合并按钮功能

二、问题应只是加条件判断(楼主的管理系统估计基本完成,代码是现成的):
1 if 组合框全为空 then
     代码
  elseif 年度=..... then
    代码
  elseif ............ then
    代码
  else 
   .....
  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
'messagebox.show(Filter)

if Filter = "" then
    Dim g As New GroupTableBuilder("统计表2", DataTables("总览"))
        g.Groups.AddDef("乡名")
        g.Groups.AddDef("村名")
        g.Totals.AddDef("设计面积")
        g.Build()
        MainTable = Tables("统计表2")
ElseIf  Filter.IndexOf("年度") <> -1 and Filter.IndexOf("乡名") = -1 then
   Dim g As New GroupTableBuilder("统计表2", DataTables("总览"))
       g.Groups.AddDef("乡名")
       g.Totals.AddDef("设计面积")
       g.Build()
    MainTable = Tables("统计表2")
ElseIf  Filter.IndexOf("年度") <> -1 and Filter.IndexOf("乡名") <> -1 then
   Dim g As New GroupTableBuilder("统计表2", DataTables("总览"))
       g.Groups.AddDef("村名")
       g.Totals.AddDef("设计面积")
       g.Build()
   MainTable = Tables("统计表2")
else
messagebox.show(".....")
end if
'messagebox.show(Filter.IndexOf("乡名"))

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:退耕还林管理系统.rar

这样子不知行不行?

呵..实现了就好..我只是提供一个条件判断的例子(我也只是在学习中...)