以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于循环语句  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=9327)

--  作者:狐哥
--  发布时间:2011/3/30 12:37:00
--  关于循环语句

For Each drs As Row In Tables("表A").Rows
                lb.text = lb.text & Chr(13) & Chr(10) & dr("列1")

Next

LB显示的是:

 

LB

AAA

BBB

CCC

 

我如何将如上列表第一个 LB删除,如何定公式


--  作者:mr725
--  发布时间:2011/3/30 12:45:00
--  

LB 是那个:lb.text 还是 dr("列1") ?

 


--  作者:狐哥
--  发布时间:2011/3/30 12:53:00
--  
以下是引用mr725在2011-3-30 12:45:00的发言:

LB 是那个:lb.text 还是 dr("列1") ?

 

lb.text

因为LB不属于列名的. LB只是个标签

 

感谢

[此贴子已经被作者于2011-3-30 12:53:51编辑过]

--  作者:mr725
--  发布时间:2011/3/30 13:00:00
--  

加个判断:

if lb.text = "LB"

      lb.text = dr("列1")

else

     lb.text = lb.text & Chr(13) & Chr(10) & dr("列1")

end if

[此贴子已经被作者于2011-3-30 13:00:02编辑过]

--  作者:狐哥
--  发布时间:2011/3/30 13:03:00
--  

呵呵,不行呢,哥.有个移除 Remove不会用,以前有个版主教过我,忘了.但不知是不是这个Remove


--  作者:mr725
--  发布时间:2011/3/30 13:08:00
--  

呵呵 我测试可以的·``

[此贴子已经被作者于2011-3-30 13:18:54编辑过]

--  作者:狐哥
--  发布时间:2011/3/30 13:19:00
--  
以下是引用mr725在2011-3-30 13:08:00的发言:

那就直接这样 lb.text = dr("列1") & Chr(13) & Chr(10)

不可以,换不了行的.

我删除文本名也可以.

只是这种方式我不知用字符串哪个词汇.我再看看帮助吧.


--  作者:mr725
--  发布时间:2011/3/30 13:21:00
--  

呵呵,我搞错了,这样可以的····


图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看


--  作者:czy
--  发布时间:2011/3/30 13:25:00
--  
lb.text = ""
For Each dr As Row In Tables("表A").Rows
    lb.text = lb.text & Chr(13) & Chr(10) & dr("列1")
Next

--  作者:mr725
--  发布时间:2011/3/30 13:28:00
--  
以下是引用czy在2011-3-30 13:25:00的发言:
lb.text = ""
For Each dr As Row In Tables("表A").Rows
    lb.text = lb.text & Chr(13) & Chr(10) & dr("列1")
Next

C版,这样会多一个空行:


图片点击可在新窗口打开查看此主题相关图片如下:未命名1.jpg
图片点击可在新窗口打开查看

 

这样可以了:
  lb.text = lb.text.trim() & Chr(13) & Chr(10) & dr("列1")

[此贴子已经被作者于2011-3-30 13:30:23编辑过]