主题：怎么指定按钮的功能，不用一个按钮一个按钮的写代码，一个按钮的功能在每选一个表后都是一样的

此主题相关图片如下：qq图片20130622100600.jpg

怎么把代码简化下，就是选定一个表后窗口中的功能都可以执行，选另一个表后就执行窗口中的功能，比如查询，是用else吗，

怎么指定按钮的功能，不用一个按钮一个按钮的写代码，一个按钮的功能在每选一个表后都是一样的

If CurrentTable.DataTable.Name = "总人口" Then '如果选择的主表
    CurrentTable.Cols("单位名称").Combolist = DataTables("总人口").GetComboListString("单位名称")
Dim dw As WinForm.ComboBox = e.Form.Controls("单位名称")
Tables("总人口").Filter= "单位名称 = '"& dw.text & "'"
End If
If CurrentTable.DataTable.Name = "妇女信息" Then '如果选择的主表
    CurrentTable.Cols("单位名称").Combolist = DataTables("妇女信息").GetComboListString("单位名称")
Dim dw As WinForm.ComboBox = e.Form.Controls("单位名称")
Tables("妇女信息").Filter= "单位名称 = '"& dw.text & "'"
End If