以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  Like  (http://foxtable.com/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