VB.NET System.NullReferenceException

Question

我有一個VB.NET程序，可以從10個不同的數據庫構建多個數據集。

我得到這個異常：

System.NullReferenceException: Object referenced not set to an 
instance of an object: 

發生在以下行此錯誤：

Me.OverTableAdapter.Adapter.SelectCommand.CommandTimeout = 60000 
Me.OverTableAdapter.Fill(Me.Dataset.Over, TodayDt, TodayEnd) 

是什麼異常是什麼意思？

Answer 1

那麼，如果它的失敗在這條線：

Me.OverTableAdapter.Adapter.SelectCommand.CommandTimeout = 60000 

然後：

• Me.OverTableAdapter是Nothing
• Me.OverTableAdapter.Adapter是Nothing
• Me.OverTableAdapter.SelectCommand是Nothing

（你已經證明我們的第二行是無關緊要的，因爲你沒有得到那麼遠。）

我們不能告訴根據您告訴我們什麼，但你應該能夠找到無論是在調試器中還是通過添加診斷日誌記錄。

一旦你制定出來爲什麼這是失敗的，修復它應該很容易 - 這幾乎肯定只是一個正確初始化的問題。將此適配器的初始化與其他的初始化進行比較。

Answer 2

這個例外的原因是SelectCommand將從TableAdapter.Fill初始化，而不是之前。所以當你在NullReferenceException之前嘗試改變Timeout。

您可以通過在不同於designer.vb/designer.cs的單獨文件中創建部分類來擴展TableAdapter。

Namespace DataSet1TableAdapters 

    Partial Public Class OverTableAdapter 
     Public Property CommandTimeout As System.Int32 
      Get 
       If Me.CommandCollection Is Nothing OrElse Me.CommandCollection.Length = 0 Then 
        Return -1 
       Else 
        Return Me.CommandCollection(0).CommandTimeout 
       End If 
      End Get 
      Set(value As System.Int32) 
       If Not Me.CommandCollection Is Nothing Then 
        For Each cmd In Me.CommandCollection 
         cmd.CommandTimeout = value 
        Next 
       End If 
      End Set 
     End Property 
    End Class 

End Namespace 

現在，您可以在創建適配器實例後使用此屬性。