Foxtable(狐表)用户栏目专家坐堂 → 关于字符串的个数问题


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

主题:关于字符串的个数问题

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


加好友 发短信
等级:四尾狐 帖子:810 积分:5250 威望:0 精华:0 注册:2009/2/6 10:38:00
关于字符串的个数问题  发帖心情 Post By:2010/5/17 9:03:00 [显示全部帖子]

“理想|道德|环境|说明”,象这样的一个字符串,有没有办法能够自动得出其字符串的长度为“4”。哪位有办法解决。


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


加好友 发短信
等级:四尾狐 帖子:810 积分:5250 威望:0 精华:0 注册:2009/2/6 10:38:00
  发帖心情 Post By:2010/5/17 9:19:00 [显示全部帖子]

那么这个字符串的长度就是:Dim Index As Integer Values.Length - 1,Index =3,是这样吗

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


加好友 发短信
等级:四尾狐 帖子:810 积分:5250 威望:0 精华:0 注册:2009/2/6 10:38:00
  发帖心情 Post By:2010/5/17 9:23:00 [显示全部帖子]

我象你一看就知道了,是对还是错

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


加好友 发短信
等级:四尾狐 帖子:810 积分:5250 威望:0 精华:0 注册:2009/2/6 10:38:00
  发帖心情 Post By:2010/5/17 9:32:00 [显示全部帖子]

应该是:

Dim Multi As String = "ab|cd|ef"
Dim Values() as String
Values = Multi.split("|")
Dim Index As Integer =  Values.Length
Output.Show(Index)


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


加好友 发短信
等级:四尾狐 帖子:810 积分:5250 威望:0 精华:0 注册:2009/2/6 10:38:00
  发帖心情 Post By:2010/5/17 9:33:00 [显示全部帖子]

又有了一招


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


加好友 发短信
等级:四尾狐 帖子:810 积分:5250 威望:0 精华:0 注册:2009/2/6 10:38:00
  发帖心情 Post By:2010/5/17 15:07:00 [显示全部帖子]

 

e.Table.Current("配备领导") = DataTables("干部信息").").GetUniqueValues("[职务类型]='领导职务',And  [工作单位] = ' e.Table.Current("单位全称") ',"姓名" )

象这样的代码如何写,我写的这个是错误的,但是正确的不知道如何写,我已经试了多次,就是写不好,请哪位指点一下。


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


加好友 发短信
等级:四尾狐 帖子:810 积分:5250 威望:0 精华:0 注册:2009/2/6 10:38:00
  发帖心情 Post By:2010/5/17 15:28:00 [显示全部帖子]

是将所有姓名填充到配备领导列中,这样就有两个条件可以筛选
[此贴子已经被作者于2010-5-17 15:28:58编辑过]

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


加好友 发短信
等级:四尾狐 帖子:810 积分:5250 威望:0 精华:0 注册:2009/2/6 10:38:00
  发帖心情 Post By:2010/5/17 15:31:00 [显示全部帖子]

使用GetComboListString,可以将所有姓名添到领导配置里去了,但是只能设置一个条件

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


加好友 发短信
等级:四尾狐 帖子:810 积分:5250 威望:0 精华:0 注册:2009/2/6 10:38:00
  发帖心情 Post By:2010/5/17 15:45:00 [显示全部帖子]

e.Table.Current("配备领导") = DataTables("干部信息").GetUniqueValues("[职务类型]='领导职务' And  [工作单位] = '"& Tables("单位名称").Current("单位全称") & "'","姓名")

 

我用了这个办法,但是就是提示错误,这段代码我是放在Currentchange事件里,一行行就提示错误,不知道是怎么回事

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


加好友 发短信
等级:四尾狐 帖子:810 积分:5250 威望:0 精华:0 注册:2009/2/6 10:38:00
  发帖心情 Post By:2010/5/17 15:47:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:99a58577-8ee5-4645-8613-d8781122f9ec.jpg
图片点击可在新窗口打开查看
提示就是这样的

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