If Combo2.Text = "Like" Then
Adodc1.RecordSource = "select 客户名称,物料编码,物料名称,物料规格, sum(数量) as 数量,单价,sum(金额) as 金额 from xsff6 where xsff6." & Combo1.Text & " like +'%'+ '" + Text1.Text + "'+'%' group by 物料规格,客户名称,物料编码,物料名称,单价 order by 物料规格 ,物料编码"
Adodc1.Refresh
Call rowwidth
Adodc2.RecordSource = "select sum(数量),sum(金额) from xsff6 where xsff6." & Combo1.Text & " like +'%'+ '" + Text1.Text + "'+'%'"
Adodc2.Refresh
Call viewdata
ElseIf Combo2.Text = "=" Then
Adodc1.RecordSource = "select 客户名称,物料编码,物料名称,物料规格, sum(数量) as 数量,单价,sum(金额) as 金额 from xsff6 where xsff6." & Combo1.Text & " = '" + Text1.Text + "' group by 物料规格,客户名称,物料编码,物料名称,单价 order by 物料规格 ,物料编码"
Adodc1.Refresh
Call rowwidth
Adodc2.RecordSource = "select sum(数量),sum(金额) from xsff6 where xsff6." & Combo1.Text & " = '" + Text1.Text + "'"
Adodc2.Refresh
Call viewdata
End If