回 帖 发 新 帖 刷新版面

主题:不能显示多条查询的记录

Sql = "select * from tea where 序号='" & FinText & "'" 
Rs.Open Sql 
yy = Rs("姓名") 
Do While Not Rs.EOF 
MSF.AddItem yy 
Rs.MoveNext 
Loop 
Rs.Close 


请问是哪里错了?我找了很多资料.好像都没有说这个问题.我是用MSFG表格控件来显示的.[MSF]是表格的名称

有两个相同的序号0002.但两个不同的姓名[小亚]和[张四哥].在以[序号]为条件查询时.却只显示了两个[小亚].而没有显示[张四哥]
本人的意愿是想在MSFG表格中显示

姓名
小亚
张四哥

但是却出现了这种情况

姓名
小亚
小亚

回复列表 (共3个回复)

沙发

好象是这一句有问题

yy = Rs.files("姓名").value 
 

板凳

同意一楼的观点:
把那句的位置改到do循环里面应该就差不多了吧。
因为在循环以外所以,该值不会改变。

Sql = "select * from tea where 序号='" & FinText & "'" 
Rs.Open Sql 
    Do While Not Rs.EOF 
        yy = Rs("姓名") 
        MSF.AddItem yy 
        Rs.MoveNext 
    Loop 
Rs.Close 

3 楼

序号 是否唯一?

我来回复

您尚未登录,请登录后再回复。点此登录或注册