- 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删除,如何定公式
-- 发布时间：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编辑过]
-- 发布时间：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
-- 发布时间：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)
不可以,换不了行的.
我删除文本名也可以.
只是这种方式我不知用字符串哪个词汇.我再看看帮助吧.
-- 发布时间：2011/3/30 13:21:00
--
呵呵，我搞错了，这样可以的····
此主题相关图片如下：未命名.jpg
-- 发布时间：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
-- 发布时间：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编辑过]