Function kdcx(kd, orderid)
创新互联建站是一家专业提供涪陵企业网站建设,专注与成都做网站、成都网站制作、H5场景定制、小程序制作等业务。10年已为涪陵众多企业、政府机构等服务。创新互联专业网络公司优惠进行中。
Dim Err, url, kdtime, link, Errcode, Status
Select Case kd
Case "申通"
kd = "shentong"
Case "圆通"
kd = "yuantong"
Case "优速"
kd = "yousu"
Case "龙邦"
kd = "longbang"
Case "城市"
kd = "cs"
Case Else
kdcx = "暂时不支持此快递"
Exit Function
End Select
Set http = CreateObject("Microsoft.XMLHTTP")
url = ";order=" orderid "id=" kd "ord=descshow=xml"
http.Open "get", url, False
http.send
WebContent = http.responsetext
Set objDom = CreateObject("Microsoft.XMLDom")
objDom.async = False
objDom.LoadXML WebContent
Set Item = objDom.getElementsByTagName("Order")
For i = 1 To Item.Length - 1
kdtime = Item(i).getElementsByTagName("Time")(0).Text
link = Item(i).getElementsByTagName("Content")(0).Text
kdcx = kdcx kdtime link vbCrLf
Next
Set Item = Nothing
End Function
Private Sub Command1_Click()
MsgBox kdcx("申通", "768782613057")
End Sub
一般来说，提供的接口，不分语言。同是.net里的产品。C#可以用，vb.net就可以用
你现在要确认好，他给你提供什么形式的接口，在线API还是封装的类库，或是其它形式的
孩子，如果你从你单击事件上下手，就好办了，先弄明白，点击了什么，datagridview点击，可以获取单击的值，好办，用SQL语句去查询单击的这个值，把查到的结果再交给你要处理的地方，我常这么干。我从来不晓得什么表与表之间的关联，或者关系表什么鬼东西，但是我也可以操作很多张表，把它们的结果集一起显示出来。
Dim 表1 As New DataSet
Dim 对象1 As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("select top * from表名 where 字段名 = '" DataGridView1.CurrentCell.Value "' ", 数据源)
对象1.Fill(表1, " 表名")
DataGridView2.DataSource = 表1.Tables(" 表名")
表1 = Nothing
对象1 = Nothing
如果写成这样，还嫌不够，一定要按你的意思去写，那我真的要疯了。
这个例子，就是把表格1点击的值查一个结果集，在表格2上显示，不知有没有你想要的表达式？
NullReferenceException表示的是你调用的某一个对象为Null
从你的描述来看，你应该是在Form3里面Show的Form6
我建议你不要一行写太多的代码，这样出错不容易找到问题
你的DataGridView1、CurrentRow、Cells(0)、Value这些都可能为空
你可以先用一个变量保存你选中的单号，而且你可以在出错的时候看到这个单号到底有没有取到，进而确定具体问题
你可以在出错的时候选中这一个对象
然后右键，选择添加监视，或者快速监视来查看这个对象的值以确定它是不是null
你找的出错那一行的代码哪个对象为null，然后再确定问题就好了（一般对象为null都是流程不对或未取到正确的值）
跨窗口传值的话使用公有属性是没有错的，不过一般不直接传整个Grid，而是需要什么传什么；你这里需要单号的话直接设置单号这个属性，然后在showFrom6之前把单号取出来赋值过去就好了