高手请进，关于ComctilLib的问题

2001-10-02 12:52:38 404 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Eclipse插件之Eclipse Color Theme的安装及使用博主秋招提前批已拿百度、字节跳动、拼多多、顺丰等公司的offer，可加微信：pcwl_Java一起交流秋招面试经验，可获得博主的秋招简历和复习笔记。 eclipse color theme主要是设置不同的背景主题以及修改代码颜色的配置。一、打开如下选项卡：help -> eclipse marketplace -> 搜索eclipse color theme查找到后直接ins... 阅读详情

那位高手知道ComctilLib是什么东西？或告诉我哪里有他的资料！

...全文

梦幻西游端游脚本开发实战：从易语言到大漠多线程全解析本文详细解析了梦幻西游端游脚本开发的全流程，从易语言基础入门到大漠插件多线程实战。重点介绍了易语言中文编程优势、大漠插件图色识别技术，以及多线程控制台开发技巧，帮助开发者高效实现游戏自动化，提升脚本稳定性和执行效率。阅读详情

meteor_liang

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

meteor_liang 2001-10-08

打赏
举报

0aaron 2001-10-07

打赏
举报

meteor_liang 2001-10-03

打赏
举报

meteor_liang 2001-10-03

打赏
举报

to bucher:
我没有对Microsoft Common Controls 5.0的引用，我一直只引用引用Microsoft Common Controls 6.0，我已试过改为Private Sub listStudents_ItemClick(ByVal Item As ListItem)。结果还是一样。后来，在access 2000数据库中我把学号这个属性的类型由整数改为
改为文本，就好了！

to karma:
我的qq:1306890.我还有问题问你，望指教！

meteor_liang 2001-10-02

打赏
举报

怎么没有高手出手相助呢？

难道又要劳动acptvb的大驾吗？

meteor_liang 2001-10-02

打赏
举报

对不起,我用的是access 2000.没有QUERY ANALYZER

当然,之前半个月,我是用sql server 7.0,好像也出同样的问题,我先回去用QUERY ANALYZER

测试一下我那个sql server 7.0的程序,谢谢你的帮忙!现在我要下了,晚上再来!

karma 2001-10-02

打赏
举报

看不出什么错来，你的语句，譬如
"select * from student where 学号= '121'"
在QUERY ANALYZER下运行没问题么？

meteor_liang 2001-10-02

打赏
举报

to karma :
我热切等待你的回答!

meteor_liang 2001-10-02

打赏
举报

由于这个网页的显示问题，rs.open"..."我是分两行的，他却显示在一行上，所以，你看起来多
_,不要以为是我的拼写错误导致出错!

meteor_liang 2001-10-02

打赏
举报

to karma:

对，我在对象浏览器里，能找到comctlLib 也叫MSComCtlLib.
但是，我早就添加了Microsoft Windows Common Controls 6.0了。因为我一直在用listview作为数据库浏览窗口的。可我就是找不到他。在程序中用到他时就显示出错。奇怪！

我给你源码吧！
Private Sub listStudents_ItemClick(ByVal Item As ComctlLib.ListItem)
Dim rs As Recordset
Set rs = New Recordset

If mbNeedSave Then
If Not UpdateRecord() Then
Set listStudents.SelectedItem = listStudents.ListItems(msCurrentRecord)
Exit Sub
End If

End If

Set rs = New Recordset
rs.Open "select * from student where 学号= '"_ +Item.Key+ "'" ,mConn,adOpenForwardOnly, adLockReadOnly

Do Until rs.EOF
Item.Text = rs("学号")
Item.SubItems(1) = rs("姓名")
Item.SubItems(2) = rs("入学时间")
Item.SubItems(3) = rs("届数")
Item.SubItems(4) = rs("已付学费")
Item.SubItems(5) = rs("未交学费")
Item.SubItems(6) = rs("学生类型")

txtNumber.Text = rs("学号")
txtName.Text = rs("姓名")
txtInTime.Text = rs("入学时间")
txtInNumber.Text = rs("届数")
txtInFee.Text = rs("已付学费")
txtOffFee.Text = rs("未交学费")
txtType.Text = rs("学生类型")

rs.MoveNext
Loop

rs.Close
Set rs = Nothing
mbNeedSave = False
cmdUpdate.Enabled = False
cmdDelete.Enabled = True

msCurrentRecord = txtNumber.Text

End Sub

他总显示rs.open"...."出错！

karma 2001-10-02

打赏
举报

it is ComctlLib Or MSComCtlLib

in VB, Project->Components, find Microsoft Windows Common Controls 6.0 (if you do not see it, browser to System directory, find MSCOMCTL.OCX), select it, you will a few entries (like listcontrol, tree control, image control, etc.) are added to your toolbox

meteor_liang 2001-10-02

打赏
举报

难道就没有高手吗？

bucher 2001-10-02

打赏
举报

去掉对Microsoft Common Controls 5.0的引用，改为引用Microsoft Common Controls 6.0。然后修改你的方法为Private Sub listStudents_ItemClick(ByVal Item As ListItem)即可。

meteor_liang 2001-10-02

打赏
举报

to ozw:
拼写肯定没有错误·
to karma:
但是，我找不到他的资料，在vb里面用到他时，要做什么引用或部件添加吗？
要不，我把源代码给你看看！急切等待你的回复！

karma 2001-10-02

打赏
举报

how did you fill the list? did you set the key for the listitem?

meteor_liang 2001-10-02

打赏
举报

ozw 2001-10-02

打赏
举报

可能拼写错了，搜索引擎什么都没找到！

ozw 2001-10-02

打赏
举报

没见过，不过既然有这么个东西，为何不上搜索引擎查一下呢？

meteor_liang 2001-10-02

打赏
举报

我回去试过,只要把Private Sub listStudents_ItemClick(ByVal Item As ComctlLib.ListItem)

改为Private Sub listStudents_ItemClick(ByVal Item As MSComctlLib.ListItem)
经过测试,可以肯定MSComctlLib.ListItem,是对的,ComctlLib.ListItem是错的.
然后,把rs.Open "select * from student where 学号= '"+Item.Key+ "'" ,mConn,adOpenForwardOnly, adLockReadOnly

的'"+Item.key+"'改为学号的一个实际值例如99061224的话,就没有错误,我估计是Item.key
的引用是错的.望高手指教!

karma 2001-10-02

打赏
举报

it is a common controls library, like listview, treeview controls, etc.

高手请进，关于ComctilLib的问题

相关推荐