主题：基础问题

Dim r As Row = Tables("表A").current

改成

Dim r As Row = currentTable.current

如果多个表一起执行，改成下面，如果运算当前表，改成 Dim skdt As DataTable =currenttable.DataTable

Dim dts() As String = {"表A", "表B", "表C"}
For Each s As String In dts
    Dim skdt As DataTable = DataTables(s)
    For Each r As DataRow In skdt.Select("")
        Dim sksumlwg As Double = 0
        Dim sksumgyg As Double = 0
        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
    Next
Next

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=122131&skin=0