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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → trim，拼接字符串

共有1620人关注过本帖树形打印复制链接主题：trim，拼接字符串

huhu

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

加好友

发短信

等级：五尾狐帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00

trim，拼接字符串 发帖心情

Post By：2017/2/14 15:10:00 [只看该作者]

Dim r As Row = Tables("销售出库单列表").Current

Dim str As String = r("发货要求")

Dim gdh,gdhh,filter As String

Dim gdsl() As String = str.Split("|")

For Index As Integer = 0 To gdsl.Length - 1

Dim gds() As String = gdsl(Index).Split("_")

filter &= "(" & "物料编码 = '" & r("存货编码") & "' and 生产订单号码 = '" & gds(0) & "' and 工单行号 = '" & gds(1) & "'" & ")" & " " & "or" & " "

Dim filter1 As String = filter.TrimEnd("or")

msgbox(filter1)

DataTables("配货扫描").loadFilter = "发货单号 = '" & r("发货单号") & "'" And filter

DataTables("配货扫描").load

此主题相关图片如下：filter.png

如何能把最后一个or去掉。

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/2/14 15:15:00 [只看该作者]

Dim Filter As String = "1=2"

-------------

filter &= " or (" & "物料编码 = '" & r("存货编码") & "' and 生产订单号码 = '" & gds(0) & "' and 工单行号 = '" & gds(1) & "'" & ")"

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/2/14 15:15:00 [只看该作者]

或者是

If filter > "" Then filter = filter.Substring(0, filter.length-3)

huhu

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

加好友

发短信

等级：五尾狐帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00

Post By：2017/2/14 16:24:00 [只看该作者]

Dim r As Row = Tables("销售出库单列表").Current

Dim str As String = r("发货要求")

Dim gdh,gdhh,filter As String

Dim gdsl() As String = str.Split("|")

For Index As Integer = 0 To gdsl.Length - 1

Dim gds() As String = gdsl(Index).Split("_")

filter &= "(" & "物料编码 = '" & r("存货编码") & "' and 生产订单号码 = '" & gds(0) & "' and 工单行号 = '" & gds(1) & "'" & ")" & " " & "or" & " "

If filter > "" Then

filter = filter.SubString(0,filter.Length -3)

End If

Dim filter1 As String = "(" & filter & ")"

Dim filter2 As String = filter1 And & "发货单号 = '" & r("发货单号") & "'"------------------这个是有问题?

msgbox(filter2)

DataTables("配货扫描").loadFilter = filter2

DataTables("配货扫描").load

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/2/14 18:29:00 [只看该作者]

Dim filter2 As String = filter1 & " And 发货单号 = '" & r("发货单号") & "'"

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

主题：trim，拼接字符串