For Each t As Table In Tables For Each r As Row In t.rows For Each c As Col In t.cols If c.IsString AndAlso c.DataCol.Expression = "" Then Dim str As String = r(c.name) str = str.Replace(chr(10), "").replace(" ", "") str = " " & str.Replace(chr(13), vbcrlf & " ").trim() r(c.name) = str End If Next Next Next
加好友 
发短信
Post By：2017/3/30 17:42:00 [显示全部帖子]
