各位老师,我按帮助中画了如下代码,怎么显示 04 错误
Dim url As String
Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim tx As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim txx As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim dr As DataRow = DataTables("收付类别").find("piao据类型 = '" & cm.value & "'")
Dim http As Object
url = "http://service.winic.org:8009/sys_port/gateway/?id= '" & cm.value & "' pwd= '" & dr("项目") & "' & to= '" & tx.value & "' & c & time="
http = CreateObject("MSXML2.XMLHTTP")
http.Open("get", url, False)
http.send()
MessageBox.Show("返回信息:" & http.responseText)
如下例子公式表名与列名与上面公式不同.
[此贴子已经被作者于2011-3-29 13:10:38编辑过]