Dim kmjh() As String = {"数量","数量1","数量2","合计"}
Dim zf As String
Dim zzf As String
For Each v As String In kmjh
If v <> "合计" Then
zf = zf & "+" & "isnull(" & v & ",0)"
End If
zzf = zf.TrimStart("+")
If v <> "合计"
dtb.AddDef(v ,Gettype(Double),"",v)
Else
dtb.AddDef(v ,Gettype(Double),zf,v)
End If
Next