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

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

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1523 积分：10315 威望：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

qazlinle6

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

加好友

发短信

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

Post By：2020/11/28 10:16:00 [显示全部帖子]

代码的呢

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1523 积分：10315 威望：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代码什么弄

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1523 积分：10315 威望：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

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1523 积分：10315 威望：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

这个什么改

qazlinle6

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

加好友

发短信

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

Post By：2020/11/28 12:11: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

ComboBox2取值ComboBox1对应的数

ComboBox1取值ComboBox2必须也得取值才可以査询

[此贴子已经被作者于2020/11/28 12:18:20编辑过]

qazlinle6

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

加好友

发短信

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

Post By：2020/11/28 15:03:00 [显示全部帖子]

2、在ComboBox2的Enter事件中加入代码：

Dim cmb As WinForm.ComboBox = e.Sender
Dim str As string = e.Form.Controls("ComboBox1").Value
cmb.ComboList = DataTables("表A").GetComboListString("规格", "型号 = '" & str & "'")

像这样

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

主题：多值