主题：[求助]

    遍历所有行

甜版主的代码是这样,您的代码是For Each r As Row In Tables("x").rows

Next

应该怎么修改，谢谢！

Dim server As String = e.Form.Controls("TextBox1").Text

Dim phones As String = e.Form.Controls("TextBox2").Text

Dim context As String = System.Web.HttpUtility.UrlEncode(e.Form.Controls("TextBox3").Text)

Dim url  As String = server & "/?numbers=" & phones & "&text=" & context

try

    Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)

    Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse

    rsps.close

    'Dim stm As System.IO.Stream = rsps.GetResponseStream()

    'Dim reader As New System.IO.StreamReader(stm)

    'Dim strResult As String = reader.ReadToEnd

    'msgbox(strResult)

    msgbox("提交发送成功")

catch ex As exception

    msgbox("发送失败,请确认服务器地址设置正确!")

End try

For Each r As Row In Tables("x").rows

 Dim server As String = e.Form.Controls("TextBox1").Text

Dim phones As String = r("号码")

Dim context As String = System.Web.HttpUtility.UrlEncode(e.Form.Controls("TextBox3").Text)

Dim url  As String = server & "/?numbers=" & phones & "&text=" & context

try

    Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)

    Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse

    rsps.close

    'Dim stm As System.IO.Stream = rsps.GetResponseStream()

    'Dim reader As New System.IO.StreamReader(stm)

    'Dim strResult As String = reader.ReadToEnd

    'msgbox(strResult)

    msgbox("提交发送成功")

catch ex As exception

    msgbox("发送失败,请确认服务器地址设置正确!")

End try

Next