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

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

共有1484人关注过本帖树形打印复制链接主题：Like

1234567

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

加好友

发短信

等级：三尾狐帖子：788 积分：6217 威望：0 精华：0 注册：2013/2/18 17:46:00

Like

Post By：2024/9/8 10:48:00 [只看该作者]

If Forms ("过程记录").opened Then
    Dim t1 As Table = Tables("过程记录_Table10")
    Dim S1 As String = t1.Current(t1.ColS("目录树生成列"))
    Dim S2 As String = Forms ("任务说明").Controls("TextBox1").text
    If S1 = "" Then
        S1 = S2
    Else
        If S1 Like "'%任务说明%'"Then  当S1包含“任务说明 ”是，S1内容不改写，测试时还是被改写了，哪里错了？

     S1 = S1
        Else
            S1 = S1 & "," & S2
        End If
    End If
    t1.Current(t1.ColS("目录树生成列")) = S1
End If

有点蓝

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

加好友

发短信

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

Post By：2024/9/8 11:59:00 [只看该作者]

去掉下面

S1 = S1

1234567

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

加好友

发短信

等级：三尾狐帖子：788 积分：6217 威望：0 精华：0 注册：2013/2/18 17:46:00

Post By：2024/9/8 12:12:00 [只看该作者]

If Forms ("过程记录").opened Then
    Dim t1 As Table = Tables("过程记录_Table10")
    Dim S1 As String = t1.Current(t1.ColS("目录树生成列"))
    Dim S2 As String = Forms ("任务说明").Controls("TextBox1").text
    If S1 = "" Then
        S1 = S2
    Else
        If S2 <> "" Then
            If S1 Like "'%任务说明%'"Then
            Else
                S1 = S1 & "," & S2
            End If
        End If
    End If
    t1.Current(t1.ColS("目录树生成列")) = S1
End If

去掉 S1 = S1还是一样

有点蓝

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

加好友

发短信

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

Post By：2024/9/8 15:28:00 [只看该作者]

like有2种用法，使用场合不一样，不能混用

一种属于vb.net的代码语法：http://www.foxtable.com/webhelp/topics/0222.htm

一种属于表达式语法：http://www.foxtable.com/webhelp/topics/0102.htm

If S1 Like "*任务说明*" Then

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

主题：Like