我回看月租收费窗口这样写,缴费情况表不是即时产生数据,要保存后才有数据显示,保存代码也简单,收款凭证删除DataSource代码后,保存代码我还没改,要象财务数据源表DoubleClick事件的收款凭证代码那样分别四种格式各自写代码,感觉累赘,如果红色代码没问题,我觉这方法更简洁。
With Tables("月租收费_Table1")
For i As Integer = .Rows.count - 1 To 0 Step -1
.Rows(i).Delete
Next
.DataSource = DataTables("缴费情况")
.Fill("select * fro m {缴费情况} where [_Identify] Is Null",False)
.SetColVisibleWidth("住址_序号|40|住址_巷|60|住址_号|40|住址_房|40|姓名|50|固定电话|70|手机号码|75|车牌号码|75|备注|140|缴费_月租_起计日期|85|缴费_月租_止计日期|85|缴费_月租_缴费月数|40|缴费_月租_月租单价|40|缴费_月租_缴费金额|50")
.SetHeaderRowHeight(0,0,45)
.AddNew(10)
.Cols("缴费_月租_缴费金额").GrandTotal = True
.GrandTotal = True
'For Each cl As Col In Tables("月租收费_Table1").Cols '设所有列的数据居中
'cl.TextAlign = TextAlignEnum.Center
'Next
'设合计二字居中
Dim r As Row
For i As Integer = 0 To .Rows.Count(True) - 1 'Count加上参数True
r = .Rows(i,True) 'Rows也需要加上参数True
If r.Level Then '如果是合计行
Tables("月租收费_Table1").Cols("住址_巷").TextAlign = TextAlignEnum.Center
End If
Next
'打开目录树.下拉选项'
e.Form.Controls("Table1").Table.Cols("车牌号码").DropForm = "车牌目录树"
e.Form.Controls("Table1").Table.Cols("缴费_月租_起计日期").UsetBuildInEditor = True
e.Form.Controls("Table1").Table.Cols("缴费_月租_止计日期").UsetBuildInEditor = True
e.Form.Controls("lry").text = User.name
End With