加入dr("备注")是你的字符,这样写
Dim str As String = dr("备注").replace(chr(10), "").replace(chr(13), "<br/>")
然后用str即可。