[求助]有没有能提取表中一列的字符罗列在一个文本框中的函数？

eyewitnes

以下是引用wang1950317在2006-5-13 15:59:00的发言：


hi-wzj版主您好，是这样子吗，没有响应啊。我的嫁接错在哪里？

Function allname(tblName As String)
    Dim d As Recordset
    Set d = CurrentDb.OpenRecordset(tblName)
    d.MoveFirst

Do While Not d.EOF

If InStr(allname, d(1)) > 0 Then GoTo ww:
        allname = allname & "," & d(1)
        d.MoveNext

ww:
    Loop
End Function

只需要姓名这一列吗?如果是的话就改这里 set d = currentdb.openrecordset("select distinct 姓名from tblname")然后其他代码按原来的就好

[此贴子已经被作者于2006-5-13 16:18:13编辑过]

fuyvn

為什么不用   

recordset.GetString

wang1950317

改动 set d = currentdb.openrecordset("select distinct 姓名from tblname")提示运行错误“语法错误，（操作符丢失）在查询表达式:姓名。。。。。”

recordset.GetString如何用，请朋友指点，谢谢！

LucasLynn

以下是引用wang1950317在2006-5-13 16:43:00的发言：


改动 set d = currentdb.openrecordset("select distinct 姓名from tblname")提示运行错误“语法错误，（操作符丢失）在查询表达式:姓名。。。。。”

recordset.GetString如何用，请朋友指点，谢谢！

GetString 方法

将 [url=mkMSITStore:C:\Program%20Files\Common%20Files\Microsoft%20Shared\OFFICE11\2052\ado210.chm::/htm/mdobjodbrec.htm]Recordset[/url] 作为字符串返回。

语法Variant = recordset.GetString(<a href="" target="_blank" >StringFormat, <a href="" target="_blank" >NumRows, <a href="" target="_blank" >ColumnDelimiter, <a href="" target="_blank" >RowDelimiter, <a href="" target="_blank" >NullExpr)

返回值

将 Recordset 作为值为字符串的 Variant (BSTR) 返回。

参数

<DL>

<DT>StringFormat

<DD>[url=mkMSITStore:C:\Program%20Files\Common%20Files\Microsoft%20Shared\OFFICE11\2052\ado210.chm::/htm/mdcststringformatenum.htm]StringFormatEnum[/url] 值，指定将 Recordset 转换成字符串的方式。RowDelimiter、ClumnDelimiter 和 NullExpr 参数只可同 adClipString 的 StringFormat 一起使用。

<DT>NumRows

<DD>可选。Recordset 中要转换的行数。如果未指定 NumRows，或者其值大于 Recordset 中的总行数，那么将转换 Recordset 中的所有行。

<DT>ColumnDelimiter

<DD>可选。如果指定了分隔符，在列之间使用该分隔符，否则使用 TAB 字符。

<DT>RowDelimiter

<DD>可选。如果指定了分隔符，在行之间使用该分隔符，否则使用 CARRIAGE RETURN 字符。

<DT>NullExpr

<DD>可选。如果指定了表达式，在 NULL 值处使用该表达式，否则使用空字符串。 </DD></DL>

说明

行数据（但没有模式数据）被保存在字符串中。因此不能使用此字符串重新打开 Recordset。

此方法等价于 RDO GetClipString 方法。

请参阅

[url=mkMSITStore:C:\Program%20Files\Common%20Files\Microsoft%20Shared\OFFICE11\2052\ado210.chm::/htm/mdmthgetstringx.htm]Visual Basic 范例[/url]

适用于：Recordset 对象

fuyvn

姓名from

中間少了空格.

recordset.GetString    的祥細說明, 可在看  ADO 的幫助.

wang1950317

这段代码快接近了请各位老师继续帮忙。（按楼上朋友意见加上空格也不行。LucasLynn老师与fuyvn老师指点的GetString方法小的还没有一点认识，正在学习，请继续指教，多谢！）

Function allname(tblName As String)
    Dim d As Recordset
    Set d = CurrentDb.OpenRecordset(tblName)
    d.MoveFirst

Do While Not d.EOF

If InStr(allname, d(1)) > 0 Then GoTo ww:
        allname = allname & "," & d(1)
        d.MoveNext


ww:
    Loop
End Function

[此贴子已经被作者于2006-5-13 19:45:02编辑过]

fan0217

先用查询,查询唯一值,再通过循环取出.

wang1950317

谢谢fan0217老师，但是如果截取对象是一个动态的查询表，该怎样办，提示错误呀？请费神浏览一下上传的文件，看看模块中需要怎样的改动才行。谢谢！

wang1950317

顶一下！请各位专家老师再指点，截取动态查询表为什么出错？

sgrshh29

以下是引用wang1950317在2006-5-15 21:33:00的发言：


顶一下！请各位专家老师再指点，截取动态查询表为什么出错？

因为你在查询1中的准则引用了窗体上的变量,在窗体没有成为当前窗体以前,这个变量无法传递到查询的准则中,所以记录集无法打开.