10 2011 档案

摘要：Private Sub Command1_Click() Dim NowPath As String Dim FileArr() As String Dim mFileCount As Long Dim i As Long Dim OrderBy As String Dim orderByConditions As Boolean Dim DriverObject As Object Dim FileObject As Object Dim MyObject As Object Dim HaveFile As Long On Error Resume Next '初始化基本的数据 Li 阅读全文

摘要：select member.membername 姓名, hh.cardnumber 卡号, member.idcardnumber 电话, hh.points 积分 from (SELECT pointcard.cardnumber, pointcard.memberid, pointcard.totpoints, pointcard.points, sign(CUME_DIST() OVER(ORDER BY totpoints DESC) - 0.1) s1 FROM pointcard) hh, memberwhere hh.memberid = member.memberid and 阅读全文