Dim drs1,drs2 As List(Of DataRow)
drs1 = DataTables("报关单数据201516").Select("[申报日期] >= #1/1/2015# And [申报日期] < #1/1/2016#")
drs2 = DataTables("报关单数据201516").Select("[申报日期] >= #1/1/2016# And [申报日期] < #1/1/2017#")
Dim names1,names2 As List(of String)
For Each dr1 As DataRow In drs1
If names1.Contains(dr1("经营单位编号")) = False Then
Names1.Add(dr1("经营单位编号"))
End If
Next
我在执行这段代码的时候提示
代码执行出错，错误信息：
system.nullreferenceexception：未将对象引用设置到对象的实例。
代码应该错在
If names1.Contains(dr1("经营单位编号")) = False Then
Names1.Add(dr1("经营单位编号"))
End If
这一段
我把这段替换成output.show(dr1("经营单位编号"))没有报错
加好友 
发短信
Post By：2017/1/9 16:48:00 [只看该作者]
