主题：字符与字符的连接

表中分别有 第一列、第二列、第三列、第四列、第五列；

 

要将 第一列、第二列、第三列、第四列、第五列里的内容以：“第一列/第二列/第三列/第四列/第五列” 形式连接起来（例如其中某列没有内容，则不连接它）

Dim r As Row = Tables("表A").Current
Dim s As String
For Each c As Col In Tables("表A").Cols
    If c.Name <> "第十列" Then
        s = s & r(c.Name) & "\"
    End If
Next
r("第十列") = s

更正一下：

 

Dim r As Row = Tables("表A").Current
Dim s As String
For Each c As Col In Tables("表A").Cols
    If c.Name <> "第十列" Then
        If r.IsNull(c.Name) = False Then
            s = s & r(c.Name) & "\"
        End If
    End If
Next
r("第十列") = s.Trim("\")

谢谢 CZY 老师，效果好，您的代码是将表A，行里的内容连接起来。可事实上，我只需要将其中的几个列连接，例如第一、第三、第四、第七列的内容连接。在第八列中显示。

Dim r As Row = Tables("表A").Current
Dim s As String
For Each c As Col In Tables("表A").Cols
    Select Case c.Name
        Case "第一列","第三列","第四列","第七列"
            If r.IsNull(c.Name) = False Then
                s = s & r(c.Name) & "\"
            End If
    End Select
Next
r("第八列") = s.Trim("\")

更正一下：

 

Dim r As Row = Tables("表A").Current
Dim s As String
For Each c As Col In Tables("表A").Cols
    If c.Name <> "第十列" Then
        If r.IsNull(c.Name) = False Then
            s = s & r(c.Name) & "\"
        End If
    End If
Next
r("第十列") = s.Trim("\")

加个判断看看：

 

Dim r As Row = Tables("表A").Current
Dim s As String
For Each c As Col In Tables("表A").Cols
    If c.Name <> "第十列" Then
        If r.IsNull(c.Name) = False Then
            s = s & r(c.Name) & "\"
        End If
    End If
Next

if s > "" then
r("第十列") = s.Trim("\")

end if

很好用，谢谢