以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  麻烦看一下干嘛出错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128651)
--  作者：wuchangke4
--  发布时间：2018/12/12 11:39:00
--  麻烦看一下干嘛出错
Select Case e.DataCol.name 
    Case "Lwg12","Lwg18","Lwg20","Lwg22","Lwg25","Lwg28","Lwg32" ,"lwg16"
      Dim sksumlwg As Double = 0
      Dim n1() As String = {"Lwg12","Lwg16","Lwg18","Lwg20","Lwg22","Lwg25","Lwg28","Lwg32"}
      For Each n As String In n1
        If e.DataTable.DataCols.contains(n)
          sksumlwg = sksumlwg + e.DataRow(n)
        End If
      Next
      e.DataRow("lwg") = sksumlwg
    Case "Gyg12","Gyg10","Gyg8","Gyg6"
      Dim sksumgyg As Double = 0
      Dim n2() As String = {"Gyg12","Gyg10","Gyg8","Gyg6"}
      For Each n As String In n2
        If e.DataTable.DataCols.contains(n)
          sksumgyg = sksumgyg + e.DataRow(n)
        End If
      Next
      e.DataRow("Gyg") = sksumgyg
End Select







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 DataCol In DataTables(skdt.name).dataCols  \'在各个工程表中遍历所有列
      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)")
        Case "Gyg8"
          skdr("Gyg8") = skdt.compute("sum(Gyg8)")
        Case "Scg"
          Skdr("scg") = skdt.compute("sum(scg)")
        Case "TongC30"
          Skdr("TongC30") = skdt.compute("sum(TongC30)")
        Case "Jinxing"
          Skdr("Jinxing") = Skdt.compute("sum(Jinxing)")
        Case "TongC40"
          Skdr("TongC40") = Skdt.compute("sum(TongC40)")
该行出错         Skdr("DTC400") =  skdt.Compute("Sum(TongC40)","[gcbw] = \'" & skdt.name  & "\'[Dungao] > 0 And [Dungao] <= 25 \'") 

          output.show("25米以下:" & skdr("DTC400")) 
          Skdr("DTC401")  = skdt.Compute("Sum(TongC40)", "[Dungao] > 25 And [Dungao] <= 50 "  )  
output.show("25米至50米:" & skdr("DTC401"))            
          Skdr("DTC402")  = skdt.Compute("Sum(TongC40)", "[Dungao] > 50 And [Dungao] <= 75 "  ) 
output.show("50米至75米:" & skdr("DTC402")) 
          Skdr("DTC403")  = skdt.Compute("Sum(TongC40)", "[Dungao] > 75 And [Dungao] <= 100 "  ) 
output.show("50米至100米:" & skdr("DTC403")) 


        Case Else
      End Select
     Next
  End If
Next
--  作者：有点甜
--  发布时间：2018/12/12 11:50:00
--  

改成

 

Skdr("DTC400") =  skdt.Compute("Sum(TongC40)","[gcbw] = \'" & skdt.name  & "\' and [Dungao] > 0 And [Dungao] <= 25") 

[此贴子已经被作者于2018/12/12 11:50:39编辑过]