[已解决]怎么实现单一文本框集中显示多条查询结果？

ok003

B窗体中查询A表的内容，查询结果显示在单一文本框中。
功能实现：
标题关键字填写“股票”，按“查询”后，在下框中得到如下结果：
（即：满足条件的字段，重新组合成一个字段，格式如下，显示在一个文本框中）

★标题：由上市公司或其关联公司持有10％以上股份的证券公司自营买卖该上市公司的股票
▲内容：
定性依据：
    《 证券经营机构证券自营业务管理办法 》 （证监[1996] 6 号）第十五条：上市公司或其关联公司持有证券经营机构 10 ％以上的股份时，该证券经营机构不得自营买卖该上市公司的股票。
    前款所称关联公司，由证监会依据国家有关法规认定。

★标题：用所持有一家上市公司已发行股份的5％以上的股票进行股票质押货款
▲内容：
定性依据：
    《 证券公司股票质押贷款管理办法 》 （银发[2004] 256 号）第十二条：用于质押贷款的股票应业绩优良、流通股本规模适度、流动性较好。贷款人不得接受以下几种股票作为质物：
    （六）证券公司持有一家上市公司已发行股份的 5 ％以上的，该证券公司不得以该种股票质押；但是，证券公司因包销购人售后剩余股票而持有 5 ％以上股份的，不受此限。

[ 本帖最后由 ok003 于 2007-10-10 12:10 编辑 ]

hi-wzj

"B窗体中查询A表的内容"，我不知道您是怎么查询内容的，例子中没见有此功能。因此我仅贴个代码给您做个参考。

Private Sub Form_Current()
Me.jieguo = "★标题：" & [biaoti] & vbCrLf & "▲内容：" & vbCrLf & [neirong]
End Sub

ok003

谢谢 hi-wzj 回复。

正常的查询操作是把结果显示在一个子窗体中：
根据标题关键字，查询满足条件的标题，然后以数据表的方式显示在子窗体中。
但我现在想要把满足条件的所有字段，重新组合一下显示在一个文本框中，如1楼的帖子所示。
现在就是不知道怎么实现这种功能，特来求助的。

我初步的思路是：
首先是把满足条件的结果放在一个对象中（ADO对象？），然后循环取数赋值给一个字符变量，最后在文本框中显示该字符变量即可。
但是限于ADO水平，实在不知怎么写代码了，恳求高手帮忙。

“查询”按钮代码
'定义
dim ado对象，str_jieguo,str_sqlcx

str_sqlcx="select * from a where a.biaoti like me.txtwz"  
ado对象= 执行 str_sqlcx

'对ado对象循环取数
not eof ado对象
str_jieguo="★标题：" & [biaoti] & vbCrLf & "▲内容：" & vbCrLf & [neirong]
next

'文本框赋值
me.txtjieguo=str_jieguo

[ 本帖最后由 ok003 于 2007-10-10 11:26 编辑 ]

hi-wzj

不须这么复杂,只需将这些代码贴入窗体的代码窗里即可。
Private Sub cmdcx_Click()
Me.Filter = "biaoti Like '*股票*'"
Me.FilterOn = True
End Sub

Private Sub Form_Current()
Me.jieguo = "★标题：" & [biaoti] & vbCrLf & "▲内容：" & vbCrLf & [neirong]
End Sub

andymark

ADO

ok003

我刚才试了一下，版主提供的代码的前提条件是这个窗体的数据源是表A，然后得到的结果是一条一条的记录，需要翻页才能查看每一条记录的内容。

我在上面的帖子可能没有说清楚，我提供的附件里面的窗体是没有绑定窗体的，我要的结果是所有记录需要集中显示在"jieguo"文本框里，而不需翻页（上一条、下一条）显示。
（另：只要能实现最终的显示结果，设置窗体B的数据源为数据表A也可以）

麻烦hi-wzj了

ok003

谢谢 andymark ！

正是我所想的思路和想要的结果！学习＋感谢！

sgrshh29

原帖由 ok003 于 2007-10-10 12:08 发表
谢谢 andymark ！

正是我所想的思路和想要的结果！学习＋感谢！

既然用了ado，就干脆用更简单的getstring方法。

haileng

2315156156166

pyzl

[:27]