| 楼主 罗刚君 |
一个简易的考勤系统，旨在展示思路，读者可以根据实际需求加以拓展。 本系统用VBA开发，需要启用宏再使用。  简易考勤系统.rar |
| 2楼 江城 |
Sub iQuery() Dim cnn As ADODB.Connection Dim rs As ADODB.Recordset Dim s As String, sSQL As String On Error Resume Next Set cnn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName s = ActiveSheet.Range("J3") sSQL = "Select 名称规格,单位,-数量,-单价,-合计,客户,日期,单号 From [数据库$A1:H10] Where 单号='" & s & "'" Range("A15:H30").ClearContents Range("A15").CopyFromRecordset cnn.Execute(sSQL) rs.Close cnn.Close Set rs = Nothing Set cnn = Nothing End Sub 版主这个考勤程序很实用 请帮我看一下上面的这个代码 当S的值为15（数值时）不能查找，但为A15字样时就可以，如何修改啊， 我要的查找单号是数值时就达不到效果 |
| 3楼 shushangyi |
这个很有用 |
| 4楼 haige007 |
这个系统 很需要 |
| 5楼 天津丫头 |
谢谢啦！ |
| 6楼 伟哥哥 |
这个系统 很好用 |
| 7楼 fengyuzhe |
正想找此类东西学习一下，谢谢！ |
| 8楼 伊诺克 |
很不错啊。图标是不是用了系统的图标，加入一个项目，自动就加上了一个图标。 |
| 9楼 603255531 |
简单实用啊！ |
| 10楼 renyz2006 |
做得很好 ！学习了！ |