现在我每个表都用到如下统计代码，想用菜单代替，但对e参数不是很熟，如何将表事件代码转为标准按钮代码？
Dim skdt As DataTable
Dim skdc As DataCol
If e.DataCol.name = "lwg" Or e.DataCol.name = "Gyg"
Dim sksumlwg As Double
Dim sksumgyg As Double
For Each skdc In e.DataTable.DataCols
Select Case skdc.name
Case "Lwg12","Lwg16","Lwg18","Lwg20","Lwg22","Lwg25","Lwg28","Lwg32"
sksumlwg = sksumlwg + e.DataRow(skdc.name)
Case "Gyg12","Gyg10","Gyg8","Gyg6"
sksumgyg = sksumgyg + e.DataRow(skdc.name)
End Select
Next
e.DataRow("Lwg") = sksumlwg
e.DataRow("Gyg") = sksumgyg
End If
加好友 
发短信
Post By：2018/7/18 11:55:00 [只看该作者]
