Dim r As Row = Tables("表A").currentDim ls = r.DataRow.Lines("图片列")For Each s As String In ls msgbox(s)Next
http://www.foxtable.com/webhelp/scr/1406.htm