黄色部分代码有问题
详细错误信息:
未将对象引用设置到对象的实例。
'----------------双击打开链接网页
Dim dr As DataRow = Tables("班主任主页_table13").Current.DataRow
Dim url As String = dr("地址")
Dim Proc As New Process '定义一个新的Process
Proc.File = url '指定要打开的网页地址
Proc.Start()
dr("阅读量") = dr("阅读量") +1
Dim dp As DataRow = DataTables("通知消息").Find("标题 = '" & dr("标题") & "'")
If dr IsNot Nothing Then
dp("阅读量") = dr("阅读量")
messagebox.show("" & dp("阅读量") & "")
End If