Dim skdr As DataRow = e.DataRow
Dim skdc As DataCol = e.DataCol
Dim skdt As DataTable
For Each skdt In DataTables
  If skdc.name="gcbw" And skdt.name = skdr("gcbw") Then
      For Each skdtw As Col In CurrentTable.Cols 
          Select Case skdtw.name
          Case "lwg32"
             skdr("lwg32") = skdt.compute("sum(lwg32)")
          Case "lwg28"
             skdr("lwg28") = skdt.compute("sum(lwg28)")
          Case "lwg25"
             skdr("lwg25") = skdt.compute("sum(lwg25)")
          Case "lwg22"
             skdr("lwg22") = skdt.compute("sum(lwg22)")
          Case "lwg20"
             skdr("lwg20") = skdt.compute("sum(lwg20)")
         Case "lwg16"
             skdr("lwg16") = skdt.compute("sum(lwg16)")
         Case "lwg12"
             skdr("lwg12") = skdt.compute("sum(lwg12)")
         Case "gyg12"
             skdr("gyg12") = skdt.compute("sum(gyg12)")
         Case "gyg10"
             skdr("gyg10") = skdt.compute("sum(gyg10)")
             \'skdr("lwg32") = skdt.compute("sum(lwg32)")
         Case Else
                
     End Select
     Next
  End If
Next

这段代码老是出错

 报什么错？截图说明。

 或者，上传具体例子，说明你要实现什么功能。