|
Dim r As Row = Tables("表A").current
Dim skdt As DataTable = r.Table.DataTable
Dim sksumlwg As Double
Dim sksumgyg As Double
For Each skdc As DataCol In skdt.DataCols
Select Case skdc.name
Case "Lwg12","Lwg16","Lwg18","Lwg20","Lwg22","Lwg25","Lwg28","Lwg32"
sksumlwg = sksumlwg + r(skdc.name)
Case "Gyg12","Gyg10","Gyg8","Gyg6"
sksumgyg = sksumgyg + r(skdc.name)
End Select
Next
r("Lwg") = sksumlwg
r("Gyg") = sksumgyg
|
加好友 
发短信
Post By：2018/7/18 12:30:00 [只看该作者]
