您的位置：程序门 -> vb -> 控件

关于combo控件与access的连接

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

关于combo控件与access的连接

发表于：2007-06-16 10:00:11 楼主

access中输入的是“姓名”与“分数”
我已经做好了data1、combo、text与access的连接，combo下拉菜单中也能找到数据中的所有“姓名”，text中能显示地一个人的分数。但是当我在combo中选定其他姓名的时候，text中的“分数”不能跳转相对应的分数请问怎么回事？
部分代码如下：
private sub combo1_click（)

text1 = data1.recordset（ "数学 ")
text2 = data1.recordset（ "语文 ")
text3 = data1.recordset（ "外语 ")
text4 = data1.recordset（ "总分 ")
text5 = data1.recordset（ "平均分 ")
data1.refresh
end sub

private sub command4_click（)
unload me
end sub

private sub form_initialize（)
data1.recordset.movefirst
do while data1.recordset.eof = false
combo1.additem data1.recordset（ "姓名 ")
data1.recordset.movenext
loop
reccount = data1.recordset.recordcount
data1.recordset.movefirst
combo1.text = data1.recordset（ "姓名 ")
text1 = data1.recordset（ "数学 ")
text2 = data1.recordset（ "语文 ")
text3 = data1.recordset（ "外语 ")
text4 = data1.recordset（ "总分 ")
text5 = data1.recordset（ "平均分 ")

end sub

发表于：2007-06-16 10:08:131楼得分:0

1, 不应该用combo1_click　应是combo1_change
2, text1 = data1.recordset（ "数学 ") ，text1中永远是当前记录，因为没有移动记录位置，如:movenext

发表于：2007-06-16 10:10:352楼得分:0

那怎么移动呢？

发表于：2007-06-16 12:12:203楼得分:0

谁能告诉我怎么移动啊．．．．．很着急的，在线等答案

发表于：2007-06-16 12:26:174楼得分:0

reply off line

发表于：2007-06-16 12:31:255楼得分:0

什么意思？

发表于：2007-06-16 12:32:076楼得分:0

能稍微完整一点吗？还是动不了．．．

下一篇：datagrid控件问题
上一篇：tabctl32.ocx有的下载么??

其他资讯