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

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变量为定义

咋回事啊？








...全文
192 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%
wps底纹去不掉_如何处理常用的敏感食材？你是否很头疼一些食材味道沾身上去不掉？...
一、如何除手上的蒜味1、在掌心倒上1匙食用盐，再加一点水，让它们变成盐糊，然后将盐搓遍双手，用冷水冲洗擦干就可以了。盐不但可以去味道，还可以去角质。（但要记得在擦干后用护手霜滋润双手，因为盐会脱水。也可以用糖、小苏打或者咖啡粉来代替）2、将双手在番茄汁中浸泡5分钟后，擦一点洗手液洗手，能有效缓解。3、用柠檬汁搓满双手，静置5分钟，然后用冷水冲掉。这样你的手上的柠檬味就会把洋葱或者大蒜的味道覆盖了。...
大学生角度_LeapMotion结合Unity开发体感游戏_03
如果读者看到了这儿，说明肯定是遇到了一点点小困难，或者真的是很感兴趣。我很希望是能有所帮助，但是接下来我要说一些大实话啦~~（如果觉得写的不对的话，就当是一个大二的小女生乱说吧~） 拿到设备后兴致勃勃安装了客户端，尝试了它已经有的几个小游戏，其中“辣手摧花”还有“机器人”的那个游戏是勉强能知道是什么意思的，但是有一个很强烈的感觉是。。。。。。怎么这么难控制呢？要知道客户端中的...
临沂市L1到L5五级街道街区分区数据集shp格式数据
本资源为临沂市L1到L5五级街道街区分区数据集SHP格式数据。数据涵盖临沂市全域范围，包含从省级到区级、街道级、社区级、网格级共五级行政区划边界矢量数据，数据精度高、边界清晰完整，包含完整的地名、行政区划代码、面积等属性字段。数据为标准Shapefile格式，可在ArcGIS、QGIS、SuperMap等GIS软件中直接打开编辑，适用于城市规划、人口统计、商业选址、物流配送、区域分析、GIS空间分析等多种应用场景，是城市数字化管理与空间分析的重要基础数据。
【无人机三维路径规划】PSO无人机路径规划3D城市（Matlab实现）
内容概要：本文基于粒子群优化算法（PSO）实现无人机在三维城市环境中的路径规划，利用Matlab进行仿真与代码实现，旨在解决复杂城市地形下无人机避障、路径优化及高效导航的问题。通过构建三维空间模型，综合考虑路径长度、飞行高度、障碍物威胁与转弯成本等多维度约束，形成最低成本的飞行路径。文中详细阐述了PSO算法在路径优化中的应用机制，并通过仿真实验验证其在动态城市环境中的有效性与鲁棒性。; 适合人群：具备Matlab编程基础，从事无人机导航、智能优化算法或路径规划相关研究的科研人员及工程技术人员，尤其适合研究生及以上学历的研究者。; 使用场景及目标：①应用于城市物流配送、应急救援、巡检监控等无人机三维路径规划实际场景；②为研究者提供基于PSO算法的路径规划实现方案，促进智能优化算法在无人机自主导航中的应用与发展；③支持算法对比与改进，推动高维非线性优化问题的求解能力提升。; 阅读建议：建议读者结合Matlab代码运行仿真，深入理解算法参数设置与路径生成逻辑，同时可尝试引入其他优化算法进行性能对比，进一步探索路径平滑、动态避障等高级功能的实现。
【期刊论文复现】多元宇宙算法求解电力系统多目标优化问题（Matlab实现）
【期刊论文复现】多元宇宙算法求解电力系统多目标优化问题（Matlab实现）内容概要：本文复现了期刊论文中提出的多元宇宙算法（Multi-Verse Optimizer, MVO）用于求解电力系统中的多目标优化调度问题，采用Matlab进行代码实现。该算法受宇宙中黑洞、白洞和虫洞等天文现象启发，通过数学建模模拟多目标搜索过程，具有较强的全局寻优能力和收敛性能。文中将其应用于典型的电力系统经济调度场景，如考虑燃料成本、排放量等多个优化目标的微电网或多能源系统调度问题，通过构建合理的数学模型和约束条件，实现对多个冲突目标的协同优化。同时，文章提供了完整的代码框架与仿真结果，便于读者理解和复现。; 适合人群：具备一定Matlab编程基础和优化算法基础知识的研究生、科研人员及从事电力系统优化调度工作的工程师。; 使用场景及目标：①学习和掌握新型智能优化算法——多元宇宙算法的基本原理与实现方法；②将其应用于电力系统经济调度、微电网优化、多目标决策等领域的模型求解；③为科研工作提供可复现的代码参考和技术支持。; 阅读建议：建议读者结合Matlab代码逐行理解算法实现细节，重点关注目标函数建模、约束处理及MVO算法核心迭代逻辑，并尝试在不同测试系统中进行参数调优与性能对比，以深入掌握其应用技巧。
控件

1,453

社区成员

41,351

社区内容

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

加载中

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

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

+ 用AI写文章