此主题相关图片如下:增加.png 想增加一段代码试了多次不成功,请大师指点:不选乡名统计到乡;选择乡名统计到村 以下代码是正确的 If ( e.Form.Controls("RadioButton1").Checked Or e.Form.Controls("RadioButton2").Checked Or e.Form.Controls("RadioButton3").Checked)= False Then Messagebox.Show("选一个项目") Return End If If ( e.Form.Controls("RadioButton4").Checked Or e.Form.Controls("RadioButton5").Checked )= False Then Messagebox.Show("选一个面积") Return End If Dim Filter As String With e.Form.Controls("ComboBox1") If .Value IsNot Nothing Then If Filter > "" Then Filter = Filter & " And " End If Filter = Filter & "乡名= '" & .Value & "'" End If End With Dim g As New CrossTableBuilder("交叉统计", DataTables("总览"),Filter) If e.Form.Controls("RadioButton1").Checked Then g.VGroups.AddDef("造林年度","{0}年_总面积") If e.Form.Controls("RadioButton2").Checked Then g.VGroups.AddDef("造林类别","{0}_总面积") If e.Form.Controls("RadioButton3").Checked Then g.VGroups.AddDef("林种","{0}_总面积") If e.Form.Controls("RadioButton4").Checked Then g.Totals.AddDef("保存面积","总面积") If e.Form.Controls("RadioButton5").Checked Then g.Totals.AddDef("退耕地","总面积") g.HGroups.AddDef("乡名") g.HorizontalTotal = True g.VerticalTotal = True g.HorizontalProportion = True g.VerticalProportion = True g.Build() MainTable = Tables("交叉统计")