VB源码查询快递单号

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

如何获取圆通快递单单号，开发用VB.net可以吗

一般来说，提供的接口，不分语言。同是.net里的产品。C#可以用，vb.net就可以用

你现在要确认好，他给你提供什么形式的接口，在线API还是封装的类库，或是其它形式的

使用VB.NET读取数据

孩子，如果你从你单击事件上下手，就好办了，先弄明白，点击了什么，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上显示，不知有没有你想要的表达式？

VB.NET 在其它窗口如何调用 DataGridView1.CurrentRow.Cells(0).Value

NullReferenceException表示的是你调用的某一个对象为Null

从你的描述来看，你应该是在Form3里面Show的Form6

我建议你不要一行写太多的代码，这样出错不容易找到问题

你的DataGridView1、CurrentRow、Cells(0)、Value这些都可能为空

你可以先用一个变量保存你选中的单号，而且你可以在出错的时候看到这个单号到底有没有取到，进而确定具体问题

你可以在出错的时候选中这一个对象

然后右键，选择添加监视，或者快速监视来查看这个对象的值以确定它是不是null

你找的出错那一行的代码哪个对象为null，然后再确定问题就好了（一般对象为null都是流程不对或未取到正确的值）

跨窗口传值的话使用公有属性是没有错的，不过一般不直接传整个Grid，而是需要什么传什么；你这里需要单号的话直接设置单号这个属性，然后在showFrom6之前把单号取出来赋值过去就好了

文章名称：vb.net获取单号 vbnet获取电脑信息
网页路径：http://kswjz.com/article/dosephd.html