Dim Values() As String Values = e.Form.Controls("TextBoxhaoma").value.split(Chr(13)) '根据回车符拆分数组 For Index As Integer = 0 To Values.Length - 1 Dim r As Row = Tables("mt").AddNew r("destination") = Values(Index).replace(chr(10), "").replace(" ", "") r("content") = e.form.controls("textboxzhengwen").text r("userSendDate") =Date.now() Next