请指教。。。

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

咋弄呢？