太奇怪的问题

2005-09-15 02:44:41 124 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

奇怪的电梯奇怪的电梯【问题描述】某栋大楼有一种很奇怪的电梯。大楼的每一层楼都可以停电梯,而且第i层楼(1≤i<N)上有一个数字K(≤K≤N)电梯只有四个按钮:开、关、上、下。上、下的层数等于当前楼层上的那个数字。当然,如果不能满足要求,相应的按钮就会失灵。例如:33125代表了Ki(K1=3,K2=3,…),从一层开始。在一层按“上”可以到4层,按“下”是不起作用的,因为没有-2层。那么从A层到B层至少要按几次按钮呢? 【输入格式】第1行为3个用1个空格隔开的正整数,表示N、A、B(l≤N≤200,1≤ 阅读详情

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
scan_hangban1()
End Sub '响应combobox1内索引的变化
'**********************************************************
Private Sub scan_hangban1()
Dim t1 As new DataView
Dim t2 As New DataView

Dim a As String
Dim b As Integer
t1= ds.Tables("ship").DefaultView '这句报错
t1.RowFilter = ("shipname='" & ComboBox1.Text & "'")
If t1.Count > 0 Then
a = t1.Item(0).Item(1)
Else
MsgBox("没有此船", MsgBoxStyle.OKOnly)
Exit Sub
End If
t2 = ds.Tables("hangban").DefaultView
t2.RowFilter = ("shipid='" & a & "'")
If t2.Count > 0 Then
ComboBox2.Items.Clear()
For b = 0 To t2.Count - 1
a = t2.Item(b).Item(1)
ComboBox2.Items.AddRange(New Object() {a})
Next
ComboBox2.Text = ComboBox2.Items(0)
End If

End Sub
以上过程我把它放在combobox1_click过程中就通过了，放在form_load里面也通过，可是如果放在ComboBox1_SelectedIndexChanged事件里一运行就会报如下错误

未处理的“System.NullReferenceException”类型的异常出现在船舶库存.exe 中。

其他信息: 未将对象引用设置到对象的实例。
从字面上理解好象是说我没有设置对象的实例，但是我在过程中已经有Dim t1 As new DataView这句了
各位能帮我看一下是什么问题吗

...全文