Dim pds() As String = t.GetValues("产品")
改成
Dim pds As List(of String) = t.GetValues("产品")
Dim sum = val(t.Compute("Sum(数量)", "产品 = '" & pds(i) & "'"))