只需一步,快速开始
使用道具 举报
以下是引用djhong在2006-9-2 17:02:00的发言: 请教如何改 Me.子窗体.Form.RecordSource = Rs 这条语句.对dao不了解
Private Sub Command2_Click() Dim Rs As New ADODB.Recordset Dim strSQL As String strSQL = "SELECT * FROM 表1 WHERE 代码 = '" & Me.txt & "'" Set Rs = GetRS(strSQL) If Not Rs.EOF Then Me.子窗体.Form.RecordSource = Rs End If Rs.Close Set Rs = Nothing End Sub
您需要 登录 才可以下载或查看,没有帐号?注册
本版积分规则 发表回复
|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )
GMT+8, 2024-9-20 13:58 , Processed in 0.089632 second(s), 35 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.