方法一:
Dim c As String = Tables("销售单数据").Current("SalePic")Dim a() As String =c.replace(chr(10), "").Split(chr(13))
方法二:
http://www.foxtable.com/webhelp/scr/2717.htm