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

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

是将所有姓名填充到配备领导列中，这样就有两个条件可以筛选

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

是这样吗？

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

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

 

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

此主题相关图片如下：99a58577-8ee5-4645-8613-d8781122f9ec.jpg

提示就是这样的

由于英语学的不好，不明白是什么意思

上传文件吧，你看看我14楼的代码，这里出错的原因是DataTables("干部信息").GetUniqueValues("[职务类型]='领导职务' And  [工作单位] = '"& Tables("单位名称").Current("单位全称") & "'","姓名")不应该是选定行，而应该是字符串

首先谢谢你，我的要求和你上面代码有不一样的地方，我的要求是把提取出来的字符串，放在一个单元格里，在另一个单元格里再把这个字符串里的人名个数自动计算出来。

目前我已用GetComboListString实现了提取相同单位的人名填充到一个单元格，并在另一个单元格自动计算出相同单位的人数。存在的缺点就是不能筛选。不过，我想出了另一个解决的办法，就是通过加载的办法来解决，在需要提取名字时，把不用的行不要加载。这个办法比较笨，但也可以解决目前的问题；这个办法我还没有测试，不知道会不会成功。