跳窗口查询的问题

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后,数据记录集没有任何变化,求应该怎么把他完善
...全文
67 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
  • 打赏
  • 举报
回复
你那查询语句?没问题?

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧