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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多值自动取值问题

共有4508人关注过本帖树形打印复制链接主题：多值自动取值问题

qazlinle6

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

加好友

发短信

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

Post By：2019/12/14 11:10:00 [只看该作者]

Tables("标签明细").Cols("品名成色").Combolist = DataTables("对账品名设置").GetComboListString("品名成色").Replace(",", "|")

怎样寸拉不显示重复的值

有点蓝

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

加好友

发短信

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

Post By：2019/12/14 11:36:00 [只看该作者]

dim s as string = DataTables("对账品名设置").GetComboListString("品名成色").Replace(",", "|")

dim lst as new list(of string)

for each s1 as string in s.split("|")

id lst.contains(s1) = false then lst.add(s1)

Tables("标签明细").Cols("品名成色").Combolist = string.join("|",lst.toarray)

qazlinle6

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

加好友

发短信

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

Post By：2019/12/14 15:33:00 [只看该作者]

此主题相关图片如下：捕获.jpg

有点蓝

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

加好友

发短信

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

Post By：2019/12/14 15:50:00 [只看该作者]

……

for each s1 as string in s.split("|")

if lst.contains(s1) = false then lst.add(s1)

……

qazlinle6

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

加好友

发短信

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

Post By：2019/12/14 16:43:00 [只看该作者]

dim arr() as string = dr("品名合计").split(",")

dim str as string = "1=1 "

for each s as string in arr

str = str & " and (','+品名合计+',') like '%," & s & ",%' "

dim arr2() as string = dr("商品品类").split(",")

for each s as string in arr2

str = str & " and (','+商品品类+',') like '%," & s & ",%' "

msgbox(str)

arr2改成这种的 [金重] < '" & dr("金重") & "'

有点蓝

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

加好友

发短信

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

Post By：2019/12/14 16:51:00 [只看该作者]

dim arr() as string = dr("品名合计").split(",")

dim str as string = "1=1 "

for each s as string in arr

str = str & " and (','+品名合计+',') like '%," & s & ",%' "

dim arr2() as string = dr("商品品类").split(",")

for each s as string in arr2

str = str & " and (','+商品品类+',') like '%," & s & ",%' "

str = str & " and [金重] < " & dr("金重")

msgbox(str)

qazlinle6

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

加好友

发短信

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

Post By：2019/12/14 16:56:00 [只看该作者]

这样如果我有个列是空值就不取值了怎样让他只填一个列也可以取值

有点蓝

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

加好友

发短信

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

Post By：2019/12/14 17:25:00 [只看该作者]

if dr.isnull("品名合计")= false then

拼接第一个列的条件

end if

if dr.isnull("商品品类")= false then

拼接第二个列的条件

end if

if dr.isnull("金重")= false then

拼接第三个列的条件

end if

qazlinle6

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

加好友

发短信

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

Post By：2019/12/14 20:37:00 [只看该作者]

Dim s As String = DataTables("对账品名设置").GetComboListString("品名成色").Replace(",", "|")

Dim s2 As String = DataTables("对账品名设置").GetComboListString("品名主石", "[品名成色] = '" & e.Row("品名成色") & "'").Replace(",", "|")

Dim s4 As String = DataTables("对账品名设置").GetComboListString ("品名含金量", "[品名成色] = '" & e.Row("品名成色") & "'").Replace(",", "|")

Dim lst As new List(of String)

Dim lst2 As new List(of String)

Dim lst4 As new List(of String)

For Each s1 As String In s.split("|")

If lst.contains(s1) = False Then lst.add(s1)

If lst2.contains(s2) = False Then lst2.add(s2)

If lst4.contains(s4) = False Then lst4.add(s4)

Tables("标签明细").Cols("品名成色").Combolist = String.join("|",lst.toarray)

Tables("标签明细").Cols("品名主石").Combolist = String.join("|",lst2.toarray)

Tables("标签明细").Cols("品名含金量").Combolist = String.join("|",lst4.toarray) 这列什么还是重复值

有点蓝

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

加好友

发短信

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

Post By：2019/12/15 19:43:00 [只看该作者]

For Each s1 As String In s.split("|")

If lst.contains(s1) = False Then lst.add(s1)

For Each s1 As String In s2.split("|")

If lst2.contains(s1) = False Then lst2.add(s1)

第三个自己参考改

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

总数 32 上一页 1 2 3 4 下一页

主题：多值自动取值问题