[已解决]查询代码问题,不知在哪里?

森林木007

老师您好!
查询问题之一.zip (30.13 KB, 下载次数: 4)

2013-5-22 19:22 上传

点击文件名下载附件
查询代码问题,不知在哪里?

1. Private Sub CommandButton1_Click()
   
2. 
   
3.   If Len(ComboBox20.Text) = 0 Or Len(ComboBox21.Text) = 0 Then
   
4.     MsgBox "起始或结束日期不能为空!"
   
5.     Exit Sub
   
6.   End If
   
7.   
   
8.   Me.ListView1.ListItems.Clear
   
9. '  Dim cnn As New ADODB.Connection
   
10. '  Dim rst As New ADODB.Recordset
    
11.   Dim rst As New Recordset
    
12.   Dim cnn As Object
    
13.   Set cnn = CreateObject("ADODB.Connection")
    
14.   Set rst = CreateObject("ADODB.recordset") '创建记录集
    
15.     On Error Resume Next
    
16.   cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName '[计件工资汇总$A2:N65536]
    
17.   Sql = "select * from Sheet12$ where 日期>=#" & ComboBox20.Text & "# and 日期<=#" & ComboBox21.Text & "#"
    
18.   
    
19.     If ComboBox3.Text <> "" Then Sql = Sql & "and 部门 like '%" & ComboBox3.Text & "%'"
    
20.     If ComboBox4.Text <> "" Then Sql = Sql & "and 工号 like '%" & ComboBox4.Text & "%'"
    
21.     If ComboBox5.Text <> "" Then Sql = Sql & "and 姓名 like '%" & ComboBox5.Text & "%'"
    
22.     If ComboBox6.Text <> "" Then Sql = Sql & "and 产品代码 like '%" & ComboBox6.Text & "%'"
    
23.     If ComboBox7.Text <> "" Then Sql = Sql & "and 产品工序 like '%" & ComboBox7.Text & "%'"
    
24.     If ComboBox8.Text <> "" Then Sql = Sql & "and 订单代码 like '%" & ComboBox8.Text & "%'"
    
25.    
    
26.   rst.Open Sql, cnn, adOpenKeyset, adLockPessimistic
    
27. 
    
28.   Do Until rst.EOF
    
29.     icount = rst.RecordCount
    
30.     For i = 0 To icount
    
31.    
    
32.     ListView1.ListItems.Add rst.Fields("序号")
    
33.     ListView1.ListItems(i).SubItems(1) = IIf(IsNull(rst.Fields("日期")), "", rst.Fields("日期"))
    
34.     ListView1.ListItems(i).SubItems(2) = IIf(IsNull(rst.Fields("部门")), "", rst.Fields("部门"))
    
35.     ListView1.ListItems(i).SubItems(3) = IIf(IsNull(rst.Fields("工号")), "", rst.Fields("工号"))
    
36.     ListView1.ListItems(i).SubItems(4) = IIf(IsNull(rst.Fields("姓名")), "", rst.Fields("姓名"))
    
37.     ListView1.ListItems(i).SubItems(5) = IIf(IsNull(rst.Fields("名称")), "", rst.Fields("名称"))
    
38.     ListView1.ListItems(i).SubItems(6) = IIf(IsNull(rst.Fields("产品代码")), "", rst.Fields("产品代码"))
    
39.     ListView1.ListItems(i).SubItems(7) = IIf(IsNull(rst.Fields("产品工序")), "", rst.Fields("产品工序"))
    
40.     ListView1.ListItems(i).SubItems(8) = IIf(IsNull(rst.Fields("订单代码")), "", rst.Fields("订单代码"))
    
41.     ListView1.ListItems(i).SubItems(9) = IIf(IsNull(rst.Fields("工序单价")), "", rst.Fields("工序单价"))
    
42.     ListView1.ListItems(i).SubItems(10) = IIf(IsNull(rst.Fields("订单数量")), "", rst.Fields("订单数量"))
    
43.     ListView1.ListItems(i).SubItems(11) = IIf(IsNull(rst.Fields("未完数量")), "", rst.Fields("未完数量"))
    
44.      ListView1.ListItems(i).SubItems(12) = IIf(IsNull(rst.Fields("完工数量累计")), "", rst.Fields("完工数量累计"))
    
45.       ListView1.ListItems(i).SubItems(13) = IIf(IsNull(rst.Fields("完工数量")), "", rst.Fields("完工数量"))
    
46.        ListView1.ListItems(i).SubItems(14) = IIf(IsNull(rst.Fields("计件金额")), "", rst.Fields("计件金额"))
    
47.       rst.MoveNext
    
48.   
    
49.     Next i
    
50.     Label9.Caption = "共找到" & icount & "条记录"
    
51.   Loop
    
52.   
    
53.   Set rst = Nothing
    
54.   Set cnn = Nothing
    
55. 
    
56. End Sub

复制代码

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-5-22 15:14

ListView1.ListItems(i).SubItems(1) = IIf(IsNull(rst.Fields("日期")), "", rst.Fields("日期"))
这里用IIF的全有问题，不需要来判断，是空值列表里就会是空值。
直接用ListView1.ListItems(i).SubItems(1) =  rst.Fields("日期")

跳转到最佳答案楼层

那么的帅

提供数据附件

hwc2ycy

ListView1.ListItems(i).SubItems(1) = IIf(IsNull(rst.Fields("日期")), "", rst.Fields("日期"))
这里用IIF的全有问题，不需要来判断，是空值列表里就会是空值。
直接用ListView1.ListItems(i).SubItems(1) =  rst.Fields("日期")

森林木007

那么的帅 发表于 2013-5-22 15:06
提供数据附件

附件已经上传在一楼,请查阅!谢!!

森林木007

hwc2ycy 发表于 2013-5-22 15:14
ListView1.ListItems(i).SubItems(1) = IIf(IsNull(rst.Fields("日期")), "", rst.Fields("日期"))
这里用 ...

我也感觉到这个有点怪怪的........
多谢指点!

那么的帅

森林木007 发表于 2013-5-22 19:24
附件已经上传在一楼,请查阅!谢!!

3楼已经回复，如不能解决，再参与。

森林木007

hwc2ycy 发表于 2013-5-22 15:14
ListView1.ListItems(i).SubItems(1) = IIf(IsNull(rst.Fields("日期")), "", rst.Fields("日期"))
这里用 ...

已经修改,但还是不执行....

森林木007

http://www.excelpx.com/forum.php ... p;extra=#pid3470508
hwc2ycy 老师七楼已经解决!

hwc2ycy

For i = 0 To icount，这里好像得从1开始。

森林木007

hwc2ycy 发表于 2013-5-22 20:48
For i = 0 To icount，这里好像得从1开始。

经测试,是从1开始,但是总是要报错.