以下是引用andymark在2006-9-2 23:03:00的发言:
文本框,子窗体,列表框,msgbox等等 都可以显示相关的重复数据
以下是引用vont在2006-9-7 14:12:00的发言:
新问题来了,我已经用MSGBOX提示可能重复的数据了,可是MSGBOX弹出的对话框中只能显示一个数据,比如我输入张三,如果前面有张三了,弹出对话框显示这个张三的编号,名字,地址等等.问题是如果前面有两个张三,提示框只能显示后一个张三的数据,请问怎么用列表框或是其他什么办法显示前面所有张三的数据呢?
以下是引用andymark在2006-9-7 14:39:00的发言:
在MSGBOX显示所有重复数据可参考这个写法
http://www.office-cn.net/forum.php?mod=viewthread&tid=44687&replyID=&skin=1
以下是引用vont在2006-9-7 20:06:00的发言:
非常非常感谢.
仔细研究了半天,(不好意思,俺刚开始学),发现例子里显示重复数据的方法是把找到的数据用FIELDS把那列显示出来,我现在需要把那一行都显示出来,该用什么呢?
Rs.Open "SELECT * FROM [customer] where [customer]![name]='" & Forms![customer]![name] & "'", SysConn, adOpenDynamic, adLockOptimistic ' (这个已经把我要找的数据全放在RS里面了)
Do While Not Rs.EOF
If Not IsNull(DLookup("[name]", "[customer]", "[name]='" & Forms![customer]![name] & "'")) Then
cName = cName & (Rs.Fields("name")) & " "
cAddress = cAddress & (Rs.Fields("address")) & Chr(13)
End If
Rs.MoveNext
Loop
If Len(cName) > 0 Then
Tsxx = "Customer with the same names:" & Chr(13) & Chr(13) & cName & Chr(13) & cAddress & Chr(13) & " Would you like to continue?"
MsgBox Tsxx
End If
这样显示的是按列排的,我想显示出RS里面所有的数据,但是按行排,有什么函数吗?
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) | Powered by Discuz! X3.3 |