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

cschina119zj

行了，感谢各位大师大力帮助。

cschina119zj

有没有办法解决在定额输入时到指定那行？现在双击选中定额输入是按一行行从上面往下排下来的，在一个项目名称下如果右边计算式有好几行的话，现在空不出来了。

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

hhzjxss

QUOTE:

以下是引用cschina119zj在2008-1-11 14:46:00的发言：

有没有办法解决在定额输入时到指定那行？现在双击选中定额输入是按一行行从上面往下排下来的，在一个项目名称下如果右边计算式有好几行的话，现在空不出来了。

抓个图上来。

 

这是因为你没有填写完整的数据给大家，所以理解跟你的要求就有差别了！

当然，修改一下代码就行了！

建议你一次性把数据和要求写上，免得大家修改来修改去！

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

cschina119zj

就是这点了，其它的做的比我想象的好得多。已经非常满足了。我只是想那样子的话会更好。

谢谢两位大师了！

cschina119zj

晚上没人来看看?

cschina119zj

我在LISTVIEW里加了个排序,定额编号时里只能排个位数?如1-1下面不是排2-1了,接下它排12-1、13-1……

Private Sub listview1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    On Error GoTo myerr
    ListView1.SortKey = ColumnHeader.Index - 1
    If ListView1.SortOrder = lvwDescending Then
        ListView1.SortOrder = lvwAscending
    Else
        ListView1.SortOrder = lvwDescending
    End If
    ListView1.Sorted = True
myerr:
    Exit Sub
End Sub

cschina119zj

还有在后台运行的定额库工作簿在计算表关闭的时候它不一起自动关闭?

cschina119zj

49楼的问题有办法实现吗?

彭希仁

all_data_name = data_name
Dim str_rout As String
Dim str_sql As String
Dim str_key As String
Dim sum_cout As Long   '这里也要改改

  '建立控件和ImageList1关联
 ' ListView1.SmallIcons = ImageList1
  '设置循环

Dim ITM As ListItem
ListView1.ListItems.Clear

Set sqladodb = CreateObject("adodb.connection")
    str_key = UserForm1.txt_key.Text
    str_rout = ThisWorkbook.Path
   
    sum_cout = 65536    '因为那东东没有打开所以出错,改成这样就不会了

说明一下   是我徒弟用我帐号回复的.

cschina119zj

多谢大师再次出手帮助!!!