字符列,要加上单引号
Case 3 nd.Text = nd.text & "("& dt.Compute("Sum(数量)","年 = " & Year & " And 月 = " & Month & " And 产品名称='" & Product & "'") & "公斤)" Case 4 nd.Text = nd.text & "("& dt.Compute("Sum(数量)","年 = " & Year & " And 月 = " & Month & " And 产品名称='" & Product & "' And 规格或牌号='" & Style & "'") & "公斤)"