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