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

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

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

1234567

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

加好友

发短信

等级：四尾狐帖子：815 积分：6377 威望：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

1234567

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

加好友

发短信

等级：四尾狐帖子：815 积分：6377 威望：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还是一样

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

主题：Like