财务表格中经常在最后一行进行统计(合计):对相应列的所有数据求和,将得到的合计值放入该行。
用Datagrid控件结合DataRow对象以及前面提到的从Datagrid控件中取单元格值的方法可以实现,主要代码如下:
Dim tmpRow As DataRow
......
rowCount = myds.Tables("salary_test").Rows.Count
colCount = myds.Tables("salary_test").Columns.Count
tmpRow = myds.Tables("salary_test").NewRow
Dim sum
tmpRow.Item(0) = "合计"
For i = 1 To colCount - 1
sum = 0
For j = 0 To rowCount - 1
sum += myds.Tables("salary_test").Rows(j).Item(i)
Next
tmpRow.Item(i) = sum
Next
myds.Tables("salary_test").Rows.Add(tmpRow)