请指教。。。

dxalstr = dxalstr1 & dxalstr


Dim dxalbran, dxalagent_no As String

Dim sumperm As Integer
Dim coubranch, couagent, cousum As Single
Dim query As Recordset



dxalstr2 = "select branch as dxalbran ,agent_no as dxalagent_no,sum(premium) as sumprem from busana " & dxalstr & " group by branch,agent_no "

adoph.RecordSource = dxalstr2

adoph.Refresh

报错为: 至少一个参数没有被指定值

如果用 就不会报错的。。

dxalstr2 = "select branch ,agent_no from busana " & dxalstr & " group by branch,agent_no "

adoph.RecordSource = dxalstr2

adoph.Refresh

咋弄呢？

" & dxalstr & "这是什么?...

你 Debug.Print 一下你的SQL语句 然后再看一下
或者发上来
因为你给的东西不全不知道
dxalstr 是什么

branch as dxalbran ,agent_no as dxalagent_no,sum(premium) as  sumprem  as前面的是表字段。而sum(premium)这个就不是的了。