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

共有2195人关注过本帖树形打印复制链接主题：多值

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00

多值

Post By：2020/11/27 23:44:00 [只看该作者]

三列数字列，1列=125，2列=126，3列=127，合并成多值列=125,126,127 如果1列=125，2列=126,3列空值，合并成多值=125,126

有点蓝

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

加好友

发短信

等级：超级版主帖子：106680 积分：542589 威望：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列)

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2020/11/28 10:16:00 [只看该作者]

代码的呢

有点蓝

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

加好友

发短信

等级：超级版主帖子：106680 积分：542589 威望：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编辑过]

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2020/11/28 11:07:00 [只看该作者]

表a ，月日多值列 =0606,0718,1112 ComboBox1取值=06 07 11 ComboBox2取值=06 18 12

ComboBox代码什么弄

有点蓝

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

加好友

发短信

等级：超级版主帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/11/28 11:18:00 [只看该作者]

没看懂，截图说明一下

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2020/11/28 11:23:00 [只看该作者]

表a ，月日多值列 =0606,0718,1112

Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox1")
cmb.ComboList = DataTables("表A").GetComboListString("月日多值列")

ComboBox1 下拉显示06 07 11

Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox2")
cmb.ComboList = DataTables("表A").GetComboListString("月日多值列")

ComboBox2 下拉显示06 18 12

有点蓝

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

加好友

发短信

等级：超级版主帖子：106680 积分：542589 威望：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

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

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2020/11/28 11:55:00 [只看该作者]

表a ，月日多值列 =0606,0718,1112

Dim Filter As String

With e.Form.Controls("ComboBox1")

If .Value IsNot Nothing Then

Filter = " ','+月日多值列+',' like '%," & .Value & ",%' "

End If

End With

With e.Form.Controls("ComboBox2")

If .Value IsNot Nothing Then

Filter = " ','+月日多值列+',' like '%," & .Value & ",%' "

End If

End With

If Filter > "" Then

DataTables("会员资料").LoadFilter = Filter

DataTables("会员资料").Load

End If

这个什么改

有点蓝

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

加好友

发短信

等级：超级版主帖子：106680 积分：542589 威望：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

下一主题 >> << 上一主题

总数 14 1 2 下一页

主题：多值