If e.Form.Controls("XX").Value = "铺位租金收入" Then
Tables("其他收费录入_Table1").DataSource = DataTables("缴费情况")
Tables("其他收费录入_Table1").SetColVisibleWidth("住址_巷|60|住址_号|40|住址_房|40|姓名|40|单位名称|100|手机号码|80|备注|200|其他收入_数量|60|其他收入_金额|80")
ElseIf e.Form.Controls("XX").Value = "广告收入" Then
Tables("其他收费录入_Table1").DataSource = DataTables("缴费情况")
Tables("其他收费录入_Table1").SetColVisibleWidth("单位名称|100|备注|200|其他收入_数量|60|其他收入_金额|80")
End If