在ASP中可以这样,VBA可以吗?

xinle

在ASP中可以这样
Dim strTxt, strTmpTxt
strTxt = "10,11,12,13,14,15,16,17"
strTmpTxt = Split(strTxt, ",")

for i= 0 to ubound(strTmpTxt )
  Response.Write "xx(" & i & ")=" & strTmpTxt (i) & vbCrLf
next
可以输出为:   
xx (0) = 10
xx (1) = 11
xx (2) = 12
... ....

请问在access的VBA中如何实现?
谢谢

xinle

没有高手知道么?

andymark

for i= 0 to ubound(strTmpTxt )
debug.print   strTmpTxt(i)
next

轻风

Response.Write 改为 Debug.Print 即可

xinle

晕，这个知道，
为什么我在用 Split() 和 ubound() 这两个函数时提示错误?

xinle

不指定类型：Dim strTxt, strTmpTxt 就可以
如果：Dim strTxt as string, strTmpTxt  as string 就提示错误。

Split() 函数需要一个数组，
如果 "10,11,12,13,14,15,16,17"是通过ADO从表中取出来的文本，
预先不知道是多少，有多少个,

这个数组应该怎么定义呢？

andymark

原帖由 xinle 于 2008-4-23 17:34 发表
晕，这个知道，
为什么我在用 Split() 和 ubound() 这两个函数时提示错误?

2000版本不支持split

Grant

在另外一个论坛也给你回答了~
Private Sub Command0_Click()
Dim strTxt ,strTmpTxt() As String



strTxt = "10,11,12,13,14,15,16,17"
strTmpTxt() = Split(strTxt, ",")

For I = 0 To UBound(strTmpTxt)
  Debug.Print "xx(" & I & ")=" & strTmpTxt(I) & vbCrLf
Next
End Sub

xinle

哦，非常感谢!
我曾经试过 dim strTxt() as string ,
也提示错误，以为不支持，笨啊。。。。