28,391
社区成员
发帖
与我相关
我的任务
分享for each 的问题
Function SelectTop (con, rs, colunms, table)
Dim strSQL
strSQL = "Select "
For Each Col in colunms
strSQL = strSQL & Col & ", "
//如果 到了最后一位 则不加逗号 好像可以用什么 HAS NEXT 写 请问如何写？
Next
str = str & " from " & table & " "
Response.Write strSQL
rs.Open strSQL, con
End Function
Dim strSQL
strSQL = "Select "
For Each Col in colunms
strSQL = strSQL & Col & ", "
//如果 到了最后一位 则不加逗号 好像可以用什么 HAS NEXT 写 请问如何写？
Next
str = str & " from " & table & " "
Response.Write strSQL
rs.Open strSQL, con
End Function
...全文
请发表友善的回复…
发表回复
liuyann 2003-07-15
- 打赏
- 举报
好象直接 select * from your_table
更省事
更省事
jedy 2003-07-15
- 打赏
- 举报
substring(strSQL,1,len(strSQL)-1)
nbshiny 2003-07-15
- 打赏
- 举报
怎么在代码中去掉最后的“，”号
zorou_fatal 2003-07-15
- 打赏
- 举报
没有 has next了。
直接写
strSQL=left(strSQL,len(strSQL)-1)就能把最后那个逗号去掉。
直接写
strSQL=left(strSQL,len(strSQL)-1)就能把最后那个逗号去掉。
julyclyde 2003-07-15
- 打赏
- 举报
完了以后把逗号去掉不就得了？
没有has next这东西
没有has next这东西
