蓝色标注的不是有添加行代码吗，不清除它，每撤换一次选项它就自动添加一次行啊！
If e.sender.text = "铺位租金" Then
DataTables("其他收费录入_Table1").DataRows.Clear()
With Tables("其他收费录入_Table1")
.DataSource = DataTables("缴费情况")
.SetColVisibleWidth("住址_巷|150|住址_号|40|住址_房|40|姓名|60|手机号码|100|备注|250|其他收入_数量|100|其他收入_金额|100")
'窗口表头设置.表中自动生成合计
.SetHeaderRowHeight(0,25,40)
.AddNew(10)
.Cols("其他收入_数量").GrandTotal = True
.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 '如果是合计行
.Cols("住址_巷").TextAlign = TextAlignEnum.Center
End If
Next
e.Form.Controls("lry").text = User.name
End With
ElseIf e.sender.text = "广告费" Or e.sender.text = "其他" Then
DataTables("其他收费录入_Table1").DataRows.Clear()
With Tables("其他收费录入_Table1")
.DataSource = DataTables("缴费情况")
.SetColVisibleWidth("备注|640|其他收入_数量|100|其他收入_金额|100")
'窗口表头设置.表中自动生成合计
.SetHeaderRowHeight(0,25,40)
.AddNew(10)
.Cols("其他收入_数量").GrandTotal = True
.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 '如果是合计行
.Cols("备注").TextAlign = TextAlignEnum.Center
End If
Next
e.Form.Controls("lry").text = User.name
End With
End If
加好友 
发短信
Post By：2021/3/11 10:26:00 [只看该作者]
此主题相关图片如下：333.png
