主题：甜老师这个短信群发调用不了数据.帮忙看看哪里错了

 返回信息正常啊

Dim url As String = "http://114.215.136.186:9002/sms/servlet/UserServiceAPI?method=sendSMS&isLongSms=0&username=353999666&password=MzUzOTk5NjY2&smstype=1&mobile={0}&content={1}"
Dim phones As String = DataTables("当月二保").GetComboListString("电话", "短信群发 = true")
Dim content As String = DataTables("发送内容").GetComboListString("内容", "选择 = true")

url = String.Format(url, phones.Replace("|", ","), content.Replace("|", chr(13)))
output.show(url)
Dim http = CreateObject("MSXML2.XMLHTTP")
http.Open("get", url, False)
http.send()
MessageBox.Show("返回信息:" & http.responseText)

Dim url As String = "http://114.215.136.186:9002/sms/servlet/UserServiceAPI?method=sendSMS&isLongSms=0&username=353999666&password=MzUzOTk5NjY2&smstype=1&mobile={0}&content={1}"
Dim phones As String = DataTables("当月二保").GetComboListString("电话", "短信群发 = true")
Dim content As String = DataTables("发送内容").GetComboListString("内容", "选择 = true")

url = String.Format(url, phones.Replace("|", ","), content.Replace("|", chr(13)))
output.show(url)
Dim http = CreateObject("MSXML2.XMLHTTP")
http.Open("get", url, False)
http.send()
MessageBox.Show("返回信息:" & http.responseText

老师我想当月二保和日新车队两个表里面通过短信群发的逻辑列调用两个表格的电话,代码怎么写啊,我这样写不行啊,应该怎么写啊.

Dim url As String = "http://114.215.136.186:9002/sms/servlet/UserServiceAPI?method=sendSMS&isLongSms=0&username=353999666&password=MzUzOTk5NjY2&smstype=1&mobile={0}&content={1}"
Dim phones As String = DataTables("当月二保","日新车队").GetComboListString("电话", "短信群发 = true")
Dim content As String = DataTables("发送内容").GetComboListString("内容", "选择 = true")

url = String.Format(url, phones.Replace("|", ","), content.Replace("|", chr(13)))
output.show(url)
Dim http = CreateObject("MSXML2.XMLHTTP")
http.Open("get", url, False)
http.send()
MessageBox.Show("返回信息:" & http.responseText

Dim url As String = "http://114.215.136.186:9002/sms/servlet/UserServiceAPI?method=sendSMS&isLongSms=0&username=353999666&password=MzUzOTk5NjY2&smstype=1&mobile={0}&content={1}"
Dim phones As String = DataTables("当月二保").GetComboListString("电话", "短信群发 = true") & "|" & DataTables("日新车队").GetComboListString("电话", "短信群发 = true")
Dim content As String = DataTables("发送内容").GetComboListString("内容", "选择 = true")

url = String.Format(url, phones.Replace("|", ","), content.Replace("|", chr(13)))
output.show(url)
Dim http = CreateObject("MSXML2.XMLHTTP")
http.Open("get", url, False)
http.send()
MessageBox.Show("返回信息:" & http.responseText)