急，一个辣手问题啊！头疼死了

smydamozhilong 2009-09-02 08:37:35
我写了2个函数
一初始化控件
Dim lvwItem As ListItem
Set lvwItem = listview.ListItems.Add(, , "默认打印机")
lvwItem.SubItems(1) = "0"
lvwItem.SubItems(2) = "0"
lvwItem.SubItems(3) = "0"


二 刷新列表



szSQL = "SELECT NPRINTERID,SUM(NLINENUM) AS SUM_NLINENUM,SUM(NPRINTNUM) AS SUM_NPRINTNUM,SUM(NLINENUM-NPRINTNUM) AS SUM_NNOPRINTNUM FROM PRINTINDEX WHERE NPRINTERID >0 GROUP BY NPRINTERID"
cRecordSet.COpen szSQL, cDBConn, adOpenStatic, adLockReadOnly
Do Until cRecordSet.IsEof
szPrintName = "默认打印机"
listview.FindItem(szPrintName).SubItems(1) = cRecordSet.GetFieldValue("SUM_NLINENUM")
listview.FindItem(szPrintName).SubItems(2) = cRecordSet.GetFieldValue("SUM_NPRINTNUM")
listview.FindItem(szPrintName).SubItems(3) = cRecordSet.GetFieldValue("SUM_NNOPRINTNUM")
cRecordSet.MoveNext
Loop
listview.Refresh



我执行到第二个函数时报错 说with变量为定义

咋回事啊？








...全文
127 15 打赏 收藏 转发到动态 举报
写回复
用AI写文章
15 条回复
切换为时间正序
请发表友善的回复…
发表回复
嗷嗷叫的老马 2009-09-02
  • 打赏
  • 举报
 回复
.....................路过.
smydamozhilong 2009-09-02
  • 打赏
  • 举报
 回复
搞定了
smydamozhilong 2009-09-02
  • 打赏
  • 举报
 回复
listview.FindItem

这个怎么用啊？
smydamozhilong 2009-09-02
  • 打赏
  • 举报
 回复
[Quote=引用 11 楼 jhone99 的回复:]
listview 这个名称好像不妥，改成 listview1 试试

listview 控件 名称是否有修改？部件加载是否还在？
[/Quote]

部件加载还在
jhone99 2009-09-02
  • 打赏
  • 举报
 回复
listview 这个名称好像不妥，改成 listview1 试试

listview 控件 名称是否有修改？部件加载是否还在？
smydamozhilong 2009-09-02
  • 打赏
  • 举报
 回复
[Quote=引用 8 楼 jhone99 的回复:]
出错位置在哪里？
[/Quote]
出错位置在


szPrintName = "daddad"

' szPrintName = arrPrinter(cRecordSet.GetFieldValue("NPRINTERID")).PrinterName
listview.FindItem(szPrintName).SubItems(1) = cRecordSet.GetFieldValue("SUM_NLINENUM")
listview.FindItem(szPrintName).SubItems(2) = cRecordSet.GetFieldValue("SUM_NPRINTNUM")
listview.FindItem(szPrintName).SubItems(3) = cRecordSet.GetFieldValue("SUM_NNOPRINTNUM")


当我执行到第二列 listview.FindItem(szPrintName).SubItems(1) = cRecordSet.GetFieldValue("SUM_NLINENUM")
时报错
smydamozhilong 2009-09-02
  • 打赏
  • 举报
 回复
[Quote=引用 7 楼 jhone99 的回复:]
有引用未做
[/Quote]
啥意思啊？




''功能：刷新窗口计数显示
Public Function RefreshDisplay(listview As listview)
Dim cRecordSet As New CSealDB.CSealRecordset
Dim cRsSet As New CSealDB.CSealRecordset
Dim lvwItem As ListItem
Dim szSQL As String
Dim szPrintName As String

szSQL = "SELECT NPRINTERID,SUM(NLINENUM) AS SUM_NLINENUM,SUM(NPRINTNUM) AS SUM_NPRINTNUM,SUM(NLINENUM-NPRINTNUM) AS SUM_NNOPRINTNUM FROM PRINTINDEX WHERE NPRINTERID >0 GROUP BY NPRINTERID"
cRecordSet.COpen szSQL, cDBConn, adOpenStatic, adLockReadOnly
Do Until cRecordSet.IsEof
szPrintName = arrPrinter(cRecordSet.GetFieldValue("NPRINTERID")).PrinterName
listview.FindItem(szPrintName).SubItems(1) = cRecordSet.GetFieldValue("SUM_NLINENUM")
listview.FindItem(szPrintName).SubItems(2) = cRecordSet.GetFieldValue("SUM_NPRINTNUM")
listview.FindItem(szPrintName).SubItems(3) = cRecordSet.GetFieldValue("SUM_NNOPRINTNUM")
cRecordSet.MoveNext
Loop
listview.Refresh
End Function
''功能：刷新窗口计数显示
Public Function InitDisplay(listview As listview)
Dim cRecordSet As New CSealDB.CSealRecordset
Dim cRsSet As New CSealDB.CSealRecordset
Dim lvwItem As ListItem
Dim i As Integer
For i = 1 To UBound(arrPrinter)
Set lvwItem = listview.ListItems.Add(, , arrPrinter(i).PrinterName)
lvwItem.SubItems(1) = "0"
lvwItem.SubItems(2) = "0"
lvwItem.SubItems(3) = "0"
Next
RefreshDisplay listview
End Function


这是我的这两个函数
jhone99 2009-09-02
  • 打赏
  • 举报
 回复
出错位置在哪里？
jhone99 2009-09-02
  • 打赏
  • 举报
 回复
有引用未做
smydamozhilong 2009-09-02
  • 打赏
  • 举报
 回复
现在不是4列嘛，我想让第一列显示的内容不变，而后面的3列显示的数字动态的变化，
我就是想实现这个
smydamozhilong 2009-09-02
  • 打赏
  • 举报
 回复
[Quote=引用 2 楼 zhengmenghua 的回复:]
前后控件名不同是怎么回事？
[/Quote]因为这是两个函数，我定义的变量名不一样而已
smydamozhilong 2009-09-02
  • 打赏
  • 举报
 回复
cRecordSet.COpen szSQL, cDBConn, adOpenStatic, adLockReadOnly
改成
cRecordSet.Open szSQL, cDBConn, adOpenStatic, adLockReadOnly


cRecordSet.COpen不用改成cRecordSet.Open 因为cRecordSet是我们自己开发的一个连接组建，他的方法就是COpen 没有open
jhone99 2009-09-02
  • 打赏
  • 举报
 回复
发了15个帖子，一个没结，结贴是对帮你的人的尊重

&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&


szSQL = "SELECT NPRINTERID,SUM(NLINENUM) AS SUM_NLINENUM,SUM(NPRINTNUM) AS SUM_NPRINTNUM,SUM(NLINENUM-NPRINTNUM) AS SUM_NNOPRINTNUM FROM PRINTINDEX WHERE NPRINTERID >0 GROUP BY NPRINTERID"
cRecordSet.Open szSQL, cDBConn, adOpenStatic, adLockReadOnly
Do Until cRecordSet.IsEof
szPrintName = "默认打印机"
listview.FindItem(szPrintName).SubItems(1) = cRecordSet.GetFieldValue("SUM_NLINENUM")
listview.FindItem(szPrintName).SubItems(2) = cRecordSet.GetFieldValue("SUM_NPRINTNUM")
listview.FindItem(szPrintName).SubItems(3) = cRecordSet.GetFieldValue("SUM_NNOPRINTNUM")
cRecordSet.MoveNext
Loop
listview.Refresh

**************************************************************
cRecordSet.COpen szSQL, cDBConn, adOpenStatic, adLockReadOnly
改成
cRecordSet.Open szSQL, cDBConn, adOpenStatic, adLockReadOnly


￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥


引用是否做了？
zhengmenghua 2009-09-02
  • 打赏
  • 举报
 回复
前后控件名不同是怎么回事？
jhone99 2009-09-02
  • 打赏
  • 举报
 回复
结帖率：0.00%
一位世界500强人力资源总监的六轮面试经历
（丰富的实战经历、超强的应变能力、优异的综合素质） 这是我自己的亲身经历，虽然最终我放弃了这个工作，但从猎头公司开始和我联系，到经历了6次面试，终于获得了这个工作的经历，仔细想来，很有意思。所以决定把我的面试经历写出来和大家分享。  先把我的背景介绍一下。我是73年出生的，本科英语专业，硕士是工商管理。当去年底接到猎头公司电话的时候，我是一家世界500强欧洲公司的中国地区人力资源经
世界五百强的人力资源面试--很精彩
一位世界500强人力资源总监的六轮面试经历 转自：http://blog.sina.com.cn/s/blog_5e82d3a10101m07n.html （丰富的实战经历、超强的应变能力、优异的综合素质） 这是我自己的亲身经历，虽然最终我放弃了这个工作，但从猎头公司开始和我联系，到经历了6次面试，终于获得了这个工作的经历，仔细想来...
《烈烈先秦》6、六国的噩梦——大秦武安君白起
六国的噩梦：大秦武安君白起（一）五．六国的噩梦——大秦武安君白起【档案】姓名：白起外号：锐头儿、锐头将军（杜甫取的），小竖子（毛遂取的）生卒：约公元前320年-公元前257年11月国籍：秦籍贯：秦国郿地人（今陕西眉县）相貌：头小而锐，瞳孔白黑分明，视瞻不转（恨量小狭，果敢坚韧之貌）座驾：四驱战车武器：七十厘米长剑经典战役：伊阙之战，安邑之战，破郢之战，长平之战特技：杀人爱好：杀人特长：杀人，其杀人...
装修日记－－爱家个案
1 房型图：P3，P42 选择爱家的过程：P4, P53 设计师的选择：P54 设计方案的敲定：P55 第一次参加团购：P56 最终确定设计图纸：P67 确定预算：P78 房屋原貌：P8，P99 抢购摩恩龙头：P1110 情况突变，新疆出差：P1211 有关新疆的讨论：P12 ，P1312 签订装修合同：P1213 正式开工：P1314 第一次逛家具店，看中的几款家具：P1415 拆旧的现场照片：
你在寻找什么人
发信人: annajully (星语心雨), 信区: Girls标  题: [合集]校园恋爱学分[转载]发信站: 南京大学小百合站 (Fri Jan 25 16:14:55 2002), 站内信件iceleaf (请赐予我offer吧) 于Fri Jan 25 13:09:43 2002)提到：你在寻找什么人　　　　寻寻觅觅，冷冷清清，凄凄惨惨戚戚……这是很多人在爱情路上漂流的心请
控件

1,451

社区成员

41,355

社区内容

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章