关于字符串的个数问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有14601人关注过本帖树形打印复制链接主题：关于字符串的个数问题

yangming

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2010/5/17 14:18:00 [显示全部帖子]

以下是引用cxabc123在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)

这不是对了吗

yangming

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2010/5/17 15:21:00 [显示全部帖子]

不明白你是要做什么用？列表项目？还是将所有姓名填充到配备领导列中？

yangming

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2010/5/17 15:33:00 [显示全部帖子]

是这样吗？

Dim Customers As List(Of String)
Customers = DataTables("干部信息").GetUniqueValues("[职务类型]='领导职务' And [工作单位] ＝ '"& Tables("人事表").Current("单位全称") & "'","姓名")
For Each Customer As String In Customers
Dim dr As DataRow
dr = DataTables("人事表").AddNew()
dr("配备领导") = Customer
Next

[此贴子已经被作者于2010-5-17 15:33:08编辑过]