tmtony 再帮我一把！

cjf78

tmtony管理员，您好！
        我很感谢您的指点，但因我的程度十分有限，不会编程。我把原程序传上来请您帮助加上，我再仔细体会。不甚感激！
我希望在计算库存时大小写要区分开，不是现在这个样子，它不分大小写，都合并在一起了。请老师给于指导！

Henry D. Sy

这种小事还要麻烦老大，简直就是杀鸡用牛刀 ：）：）

Public Function GetAscii(strName As String) As String
    Dim strTemp As String
    Dim I As Integer
    For I = 1 To Len(strName)
        strTemp = strTemp & Asc(Mid(strName, I, 1))
    Next
    GetAscii = strTemp
End Function

SELECT [quetext5-1].品名, Sum([quetext5-1].库存) AS 库存之总计
FROM [quetext5-1]
GROUP BY [quetext5-1].品名, GetAscii([品名]);

tmtony

好办法, Access本身不分大小写,只能用Ascii码来区分. 楼上D兄的方法可解决你要求的按大小写分组的功能.
如果要排序的话, 因为转成Ascii码后串成字符串,可能 9 与 11 排序 可能11排在9的后面,如果品名是字母的话,应该不成问题,如果有其它字符的话,则还可改进一下 将取得的Ascii码变成定长,如format( Asc(Mid(strName, I, 1)),"000")

cjf78

一上班就看到二位老师的指点，非常感谢！
不好意思，D老师的二段语句我应放到哪里，请再指点。
如果我要对“规格”一项分出大小写，程序有变化吗？

[ 本帖最后由 cjf78 于 2008-11-3 13:41 编辑 ]

Henry D. Sy

1， 放到模块里
2. 复制查询语句到查询的sql视图中保存
3。如果我要对“规格”一项分出大小写，程序有变化吗？
   GetAscii([规格])

cjf78

谢谢D大哥：真好用，我总算可以舒口气了。

ycxchen

谢谢，我也增长知识了！