日志
- 分享 趣谈子查询
- 趣谈子查询 最近一周以来对SQl中的子查询突感兴趣。起因是版友Punter同志让我提供“对若干条数据记录作过程分析的简易方法”，因未成提供具体实例，加之在下此前却也不懂，便敷衍搪塞了Punter同志。细细想来，Punter同志所问却也是在下常常困惑的问题。我们知道如果用Excel做记录间的运算十分简单，然而对于Acce ...
- 分享 面向初学者的窗体功能设计集成
- 面向初学者的窗体功能设计集成 你或许和我一样总在琢磨能不能在一个窗体中使数据的显示多种多样，呵呵。这个世界时变化多端的，我们的窗体也是这个世界上事物的一种反映，因此窗体也就可以是变化多端的。对于我们这样的Access初学者来说，快速的掌握变化的规律的最好方法就是经常性的做一些总结，由此你便能由此及彼 ...
- 分享 给punter同志的一个教程
-
给punter同志的一个教程 punter 同志前不久提出了一个分组运算的问题，让 Henry D. Sy 、 ACMAIN.CHM 、 t小雨 同志，以及我本人好生忙活了一阵。不过 punter 同志的问题似乎并没有得到完全解决。 究其原因，主要在于 punter 同志始终难以准确的描述 ...
- 分享 拼音助记码函数
- Public Function PinYin(Tstr As String) As String Dim I As String I = Asc(Tstr) If I = Asc("啊") And I Asc("芭") Then PinYin = "a" If I = Asc("芭") And I Asc("擦") Then PinYin = "b" If I = Asc("擦") And I Asc("搭") Then PinYin = "c" If I = Asc("搭") And I Asc("蛾") T ...
- 分享 路径函数
- Function GetFolder() As String Dim dlgOpen As FileDialog Dim i As Long, j As Long Set dlgOpen = Application.FileDialog(msoFileDialogOpen) With dlgOpen .AllowMultiSelect = True &nbs ...
