Foxtable(狐表)用户栏目专家坐堂 → 多值


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

主题:多值

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109480 积分:557062 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/28 9:12:00 [显示全部帖子]

表达式列:[1列] + IIF(2列 is null,'',',' + 2列) + IIF(3列 is null,'',',' + 3列

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109480 积分:557062 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/28 10:22:00 [显示全部帖子]

差不多
dim r as row = tables("A").current
r("k列") = r("1列") & IIF(r.isnull("2列")l,'',',' & r("2列")) & IIF(r.isnull("3列") ,'',',' & r("3列")
[此贴子已经被作者于2020/11/28 11:17:37编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109480 积分:557062 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/28 11:18:00 [显示全部帖子]

没看懂,截图说明一下

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109480 积分:557062 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/28 11:36:00 [显示全部帖子]

Dim sre As String = DataTables("表A").GetComboListString("月日多值列")
Dim str() As String = sre.Replace(",","|").split("|")
Dim lst1 As new List(of String)
Dim lst2 As new List(of String)
Dim s1,s2 As String
For Each s As String In str
    If s.length = 4 Then
        s1 = s.substring(0,2)
        If lst1.Contains(s1) = False Then lst1.Add(s1)
        s2 = s.substring(2)
        If lst2.Contains(s2) = False Then lst2.Add(s2)
    End If
Next
If lst1.Count > 0 Then
    e.form.Controls("ComboBox1").ComboList = String.Join("|",lst1.ToArray)
End If
If lst2.Count > 0 Then
    e.form.Controls("ComboBox2").ComboList = String.Join("|",lst2.ToArray)
End If

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109480 积分:557062 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/28 12:04:00 [显示全部帖子]

2个组合框都必须选择项目,否则无法查询

dim str as string = e.Form.Controls("ComboBox1").text & e.Form.Controls("ComboBox2").text

Dim Filter As String= " ','+月日多值列+',' like '%," & str  & ",%'  "
    DataTables("会员资料").LoadFilter = Filter
DataTables("会员资料").Load

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109480 积分:557062 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/28 14:06:00 [显示全部帖子]

没看懂,什么问题?

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109480 积分:557062 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/28 15:55:00 [显示全部帖子]

虽然绕过弯可以做得到,但是效率会很低,数据越多越低。
ComboBox1参考11楼的方式处理,ComboBox2enter事件遍历所有"月日多值列"数据,然后拆分项目看哪一个的前2个字符等于ComboBox1的值,取出来使用

建议换个方式,比如增加辅助列,把月和日分别存储处理,具体请上传实例说明。

 回到顶部