跳窗口查询的问题

[huhacoca]

Private Sub cmd_select_KHMC_Click()
If txt_username.Text <> "" Then
Adodc1.RecordSource = "HXKH where 客户名称 = '" & txt_username.Text & " '"
Adodc1.Refresh
Form1.Show
Else
MsgBox "您所查询的记录不存在或输入的值错误.", , "错误提示"
End If
End Sub

这是在form2的一个查询,求在form2的txt_username文本框输入字段值后,可以跳到form1，然后在form1显示符合字段值的数据记录集,上面的代码很明显是不完整的,跳到form1后,数据记录集没有任何变化,求应该怎么把他完善

[yangxie5201314]

你那查询语句？没问题？

[huhacoca]

如果有问题,请你指出来...我查询后,没报错,只是跳回到form1后,数据记录集没变化

[huhacoca]

如果直接在form1查询,是可以显示指定字段值的数据的....

[jhone99]

Private Sub cmd_select_KHMC_Click()
If txt_username.Text <> "" Then
Adodc1.RecordSource = "HXKH where 客户名称 = '" & txt_username.Text & " '"
Set FORM1.DataGrid1.DataSource = Adodc1.Recordset
Adodc1.Refresh
Form1.Show
Else
MsgBox "您所查询的记录不存在或输入的值错误.", , "错误提示"
End If
End Sub