跳窗口查询的问题

huhacoca 2010-09-27 03:42:19
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后,数据记录集没有任何变化,求应该怎么把他完善
...全文
32 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
jhone99 2010-09-27
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
回复
huhacoca 2010-09-27
如果直接在form1查询,是可以显示指定字段值的数据的....
回复
huhacoca 2010-09-27
如果有问题,请你指出来...我查询后,没报错,只是跳回到form1后,数据记录集没变化
回复
yangxie5201314 2010-09-27
你那查询语句?没问题?
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2010-09-27 03:42
社区公告
暂无公告