Foxtable(狐表)用户栏目专家坐堂 → 关于循环语句


  共有10914人关注过本帖树形打印复制链接

主题:关于循环语句

帅哥哟,离线,有人找我吗?
狐哥
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:719 积分:5181 威望:0 精华:1 注册:2008/9/24 10:41:00
关于循环语句  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2011/3/30 12:45:00 [只看该作者]

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
狐哥
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:719 积分:5181 威望:0 精华:1 注册:2008/9/24 10:41:00
  发帖心情 Post By: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
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By: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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:719 积分:5181 威望:0 精华:1 注册:2008/9/24 10:41:00
  发帖心情 Post By:2011/3/30 13:03:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2011/3/30 13:08:00 [只看该作者]

呵呵 我测试可以的·``

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

 回到顶部
帅哥哟,离线,有人找我吗?
狐哥
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:719 积分:5181 威望:0 精华:1 注册:2008/9/24 10:41:00
  发帖心情 Post By:2011/3/30 13:19:00 [只看该作者]

以下是引用mr725在2011-3-30 13:08:00的发言:

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

不可以,换不了行的.

我删除文本名也可以.

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


 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2011/3/30 13:21:00 [只看该作者]

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


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


 回到顶部
帅哥哟,离线,有人找我吗?
czy
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33951 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By: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
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By: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编辑过]

 回到顶部
总数 11 1 2 下一页