Dim str As String = ""For Each r As Row In e.form.controls("table1").Table.rows str &= r("第一列") & ","Nextmsgbox(str)