VB中listBox的问题！（不是.net）
我想单击listBox的一项 使得txtNub cboType dtpEsp txtReason获得对应数据库里的记录！
Private Sub Form_Load()
Call getCn
Dim SQL As String
SQL = "select * from [异动记录]"
Set rs = New ADODB.Recordset
rs.Open SQL, cn, adOpenKeyset, adLockOptimistic
Do Until rs.EOF
libNub.AddItem rs("学号")
rs.MoveNext
Loop
If Not (rs.EOF And rs.BOF) Then
rs.MoveFirst
showing
End If
End Sub
Private Sub showing()
txtNub = rs("学号")
cboType = rs("类型")
dtpEsp = rs("日期")
txtReason = rs("原因")
End Sub
Private Sub libNub_Click()
Call showing
End Sub
出现什么问题？......
我写的这个单击事件没反应
Private Sub libNub_Click()
Call showing
End Sub
谢谢VB老鸟，我刚才试了：rs.Find "学号='" & libNub.Text & "'", , , adBookmarkFirst
其实应该把它放在Private Sub libNub_Click()
rs.Find "
相关问答：
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
帮我改改 我总觉得有问题
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
各位大虾：
我是刚学VB，现在想用VB调用一个动态库，动态库里面有很多函数。我知道使用VB调用动态库调用函数，需要将要调用的函数在程序中声明即可，但是里面有很多函数，不会每一个函数都要声明吧。请� ......
刚接触vb6.0，有些摸不到的感觉，敬请各位大虾给点建议！！！
不会吧，推荐学习.NET。顺便推荐实用代码网站http://bingning.net/free/source/index.html。
如果没基础 就用易语言吧 中文编程呢 代码都是中文 ......
在网上下载了speechsdk51LangPack安装后，用vb可以发音（中文），里面有个girl xiaokun的发音，对中文很好听。但是这个speechsdk51LangPack有100多M，我的vb项目打包后，怎么才可以装到其他机子上也能用？？总不能每 ......
