' 在用户编辑数量和单价字段后,相应改变总金额的值 ' 该事件在完成网格单元中的编辑之后出现 Private Sub DataGrid1_AfterColEdit(ByVal ColIndex As Integer) Dim sum, price As Currency Dim num As Integer
If ColIndex = 4 Or ColIndex = 5 Then num = DataGrid1.Columns("数量").CellValue(DataGrid1.Book) price = DataGrid1.Columns("单价").CellValue(DataGrid1.Book) ' 使用 Book 属性返回的值来保存对当前行的引用 sum = num * price DataGrid1.Columns("总金额").Value = sum ' Value属性设置或返回当前行的一列中的基本数据值 End If End Sub
计算金额,并修改金额列
' 该事件在完成网格单元中的编辑之后出现
Private Sub DataGrid1_AfterColEdit(ByVal ColIndex As Integer)
Dim sum, price As Currency
Dim num As Integer
If ColIndex = 4 Or ColIndex = 5 Then
num = DataGrid1.Columns("数量").CellValue(DataGrid1.Book)
price = DataGrid1.Columns("单价").CellValue(DataGrid1.Book)
' 使用 Book 属性返回的值来保存对当前行的引用
sum = num * price
DataGrid1.Columns("总金额").Value = sum
' Value属性设置或返回当前行的一列中的基本数据值
End If
End Sub