[已解]还有查询代码怎么写？

cschina119zj

我也知道弄这个窗口确实是很麻烦，浪费了你的宝贵时间，可我弄了半天还是不行，只有求助你了。

cschina119zj

不看不看版主，辛苦你了，感谢！

hhzjxss

请楼主将“计算表”工作表中填写一些示例数据，也好理解你的意图！

hhzjxss

[分享]建筑预算定额 for cschina119zj(雨中漫步)

 

[求助]还有查询窗口代码怎么写？真急人啊。。。

 

http://www.excelpx.com/forum.php?mod=viewthread&tid=35269

彭希仁

看看我的是否合意!![em04]

彭希仁

IQ5tM3s5.rar (84.83 KB, 下载次数: 20)

2008-1-11 10:48 上传

点击文件名下载附件
[求助]还有查询窗口代码怎么写？真急人啊。。。
这个![em04]

cschina119zj

你这个界面做的实在是太好了！超出我的想象，实在是高！！！

不过我在运行时提示：运行时错误9  下标越界出错，不知道是怎么回事？

 

Set sqladodb = CreateObject("adodb.connection")
    str_key = UserForm1.txt_key.Text
    str_rout = ThisWorkbook.Path
   
    sum_cout = Workbooks("定额库").Sheets(data_name).UsedRange.Rows.Count
    str_sql = "SELECT 定额编号,定额名称,单位 FROM[" & data_name & "$A1:C" & sum_cout & "] where " & data_filds & " like'%" & str_key & "%'"
    sqladodb.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;imex=1';data source=" & str_rout & "\定额库.xls"
        'sqladodb.Open
Set data_sort = sqladodb.Execute(str_sql)
  
   If data_sort.EOF = True Then Exit Sub
    zs = data_sort.GetRows
    For i = 0 To UBound(zs, 2)
       '添加记录
        Set ITM = ListView1.ListItems.Add()
        ITM.Text = "" & zs(0, i)
        ITM.SubItems(1) = "" & zs(1, i)
        ITM.SubItems(2) = "" & zs(2, i)
    Next i
sqladodb.Close
   
End Sub

[此贴子已经被作者于2008-1-11 11:16:06编辑过]

xhsdham

呵呵 彭大师出手了 就不会有问题了[em01]

xhsdham

回楼主 彭大师的这个 要求两个工作薄都是打开才行

要不把出问题的换成

Set MyXL = GetObject("" & ThisWorkbook.Path & "\定额库.xls" & "")
    sum_cout = MyXL.Sheets(data_name).UsedRange.Rows.Count

[此贴子已经被作者于2008-1-11 12:42:42编辑过]

hhzjxss

QUOTE:

以下是引用彭希仁在2008-1-11 10:44:00的发言：
看看我的是否合意!![em04]

谢谢彭大侠，你的一定不错。我看看！