所有行的第二列?
当前行的第二列 m.Content = Tables("xxx").Current("第二列")
全部行的第二列
Dim str As String = ""
For Each r As Row In Tables("xxx").Rows
str += r("第二列")
Next
m.Content = str