[浏览完整版]
标题：关于循环语句
1楼
狐哥 发表于：2011/3/30 12:37:00For 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删除,如何定公式
2楼
mr725 发表于：2011/3/30 12:45:00LB 是那个：lb.text 还是 dr("列1") ？
3楼
狐哥 发表于：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编辑过]
4楼
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编辑过]
5楼
狐哥 发表于：2011/3/30 13:03:00呵呵,不行呢,哥.有个移除 Remove不会用,以前有个版主教过我,忘了.但不知是不是这个Remove
6楼
mr725 发表于：2011/3/30 13:08:00呵呵 我测试可以的·``
[此贴子已经被作者于2011-3-30 13:18:54编辑过]
7楼
狐哥 发表于：2011/3/30 13:19:00以下是引用mr725在2011-3-30 13:08:00的发言：
那就直接这样 lb.text = dr("列1") & Chr(13) & Chr(10)
不可以,换不了行的.
我删除文本名也可以.
只是这种方式我不知用字符串哪个词汇.我再看看帮助吧.
8楼
mr725 发表于：2011/3/30 13:21:00呵呵，我搞错了，这样可以的····
此主题相关图片如下：未命名.jpg
9楼
czy 发表于：2011/3/30 13:25:00lb.text = ""
For Each dr As Row In Tables("表A").Rows
lb.text = lb.text & Chr(13) & Chr(10) & dr("列1")
Next
For Each dr As Row In Tables("表A").Rows
lb.text = lb.text & Chr(13) & Chr(10) & dr("列1")
Next
10楼
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
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编辑过]