主题：[求助]单元格内容格式需求

 各个字符之间填充足够的空格，不就行了？

If e.DataCol.name = "第二列" Then
    Dim fdr As DataRow = DataTables("表B").Find("第八列 = '" & e.DataRow("第二列") & "'")
    If fdr Is Nothing Then
        e.DataRow("第一列") = Nothing
        e.DataRow("第三列") = Nothing
    Else
        e.DataRow("第一列") = fdr("第一列").padright(10) & " " & fdr("第二列").padright(10) & " " & fdr("第三列") & vbcrlf & fdr("第四列").padright(10) & " " & fdr("第五列")
        e.DataRow("第三列") = fdr("状态")
    End If
End If