Dim chars() As String = {chr(10), chr(13), " "} Dim dt As DataTable = DataTables("表A") For Each dr As DataRow In dt.datarows For Each dc As DataCol In dt.DataCols If dc.Expression = "" Then Dim str As String = dr(dc.name) For Each s As String In chars str = str.replace(s, "") Next dr(dc.name) = str End If Next Next