[已解决]请帮我写个SQL 语句，送金币20个（又不行了）

不看不看

也发上来放到这里吧，便于学习

请帮我写个SQL 语句，送金币20个（又不行了）

Sub test()
Dim cnn As Object
Dim sql$
Set cnn = CreateObject("adodb.connection")
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties= Excel 8.0;Data Source=" & ThisWorkbook.FullName
sql = "select iif(InStr(品种,'退')>0,left(品种,len(品种)-1),品种),max(单价),sum(数量),sum(金额)  from [sheet1$a1:d9] GROUP BY iif(InStr(品种,'退')>0,left(品种,len(品种)-1),品种)"
Range("f2").CopyFromRecordset cnn.Execute(sql)
Set cnn = Nothing
End Sub

wxyqxxz2007

 如果他的字段都是6位,加个　＂退＂ 字 的7位的话,还可以简化

 Sql = " select left(进货单号,6) ,SUM(进货数量),进货单价,SUM(金额) from [Sheet1$] group by left(进货单号,6),进货单价 "

 

查询的再简化改成这样

Sql = " select a.进货单号 ,iif(isnull(b.付款金额),a.金额,b.付款金额),iif(isnull(b.付款方式),null,'已付') " _
              & " from (select left(进货单号,6) as 进货单号,SUM(金额) as 金额 from [Sheet1$] group by  " _
              & " left(进货单号,6)) a left join [Sheet1$f1:h3] b on a.进货单号=b.进货单号 "

 

不过,不看不看的代码通用性最好,一般就是这么用的

[此贴子已经被作者于2008-10-15 20:40:35编辑过]