又是我,昨天的解决了马上结贴,不过又有问题大家帮忙

bluesanke 2003-05-23 02:56:50
Private Sub Command5_Click()
With cx_xzgl_gtzyywgwyscld
.Show
.Move 0, 0
.Adodc1.RecordSource = "select * from XZ_XZGL_QSYSCLD where cx_xzgl_gtzyywgwyscld.txtBH='" & Trim(xzgl_gwyscld.Text5.Text) & "'"
End With
End Sub
大家看看怎么修改上面的代码,要求是通过1窗口的一个text中的内容,查询2窗口包含这个字段的记录,并且2窗口里的各text中都接收到,---------其实就是要2窗口的记录指针,移动到这条,并且自动显示,就是这样
...全文
5 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Huier_lh 2003-05-23
代码看起来乱乱的.
如果 cx_xzgl_gtzyywgwyscld.txtBH的文本是 是数据库中一个字段名:

With cx_xzgl_gtzyywgwyscld
.Show
.Move 0, 0
.Adodc1.RecordSource = "select * from XZ_XZGL_QSYSCLD where " & cx_xzgl_gtzyywgwyscld.txtBH & "='" & Trim(xzgl_gwyscld.Text5.Text) & "'"
.text1=adodc1.Recordset.Fields(0)
.text2=adodc1.Recordset.Fields(1)
End With

End Sub
回复
相关推荐
发帖

1184

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2003-05-23 02:56
社区公告
暂无公告