以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  Like  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193351)
--  作者：1234567
--  发布时间：2024/9/8 10:48:00
--  Like

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
--  作者：有点蓝
--  发布时间：2024/9/8 11:59:00
--  
去掉下面

S1 = S1
--  作者：1234567
--  发布时间：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还是一样
--  作者：有点蓝
--  发布时间：2024/9/8 15:28:00
--  
like有2种用法，使用场合不一样，不能混用

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

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