主题：[求助]我想显示成这样。怎么做

If e.DataCol.Name = "第三列"  Then

    Dim dr1,dr2 As DataRow

    Dim s As String = e.NewValue

    If s Is Nothing Then

        e.DataRow("第四列")= Nothing

    Else

        dr1 = DataTables("表A").Find("第一列 = '" & s.substring(0,s.length-2) & "'")

        dr2 = DataTables("表A").Find("第一列 = '" & s  & "'")

        s =Nothing

        If dr1 IsNot Nothing Then

            s = dr1("第二列") & "/"

        End If

        If dr2 IsNot Nothing Then

            s+=dr2("第二列")

        End If

        e.DataRow("第四列")= s

    End If

End If