例外を回避するためにどのようにVB.NET

Question

における位置の何行目は、私は、この条件を持っているがありません：

If IsNothing(ds.Tables(0).Rows(rowData).Item("DATE")) Then 
Else 
    txtDATE.Text = ds.Tables(0).Rows(rowData).Item("DATE") 
End If 

今まで、私はそれが同じエラーである何。 どうすれば解決できますか？

Answer 1

私は10までループしていますが、私のデータセットは時々 の10行未満です。私はdinamically TextBoxコントロールを作成したいと には、設定されたデータからテキストセットが、10行のデータセットがデータ を持っていない場合だけであることをチェックするためにIfを使用して、空のTextBoxその後

のテキストを残すために条件：

For rowData As Int32 = 0 To 10 
    ' ..... 
    If ds.Tables(0).Rows.Count > rowData Then 
     Dim dt As Date? = ds.Tables(0).Rows(rowData).Field(Of Date?)("DATE") 
     txtDATE.Text = If(dt.HasValue, dt.Value.ToString(), "") 
    Else 
     txtDATE.Text = "" 
    End If 
Next 

（IsNothingを使用しているため）この列はnull可能な日付列です。次に、Date?を使用することをお勧めします。したがって、null可能な型をサポートするDataRowExtensions.Fieldを使用できます。

Answer 2

10個のテキストボックスの代わりに、1個のDataGridViewコントロールしか使用できません。

だけで存在していたデータのためのあなたの日付値（これもデザイナーで行うことができます）

Dim column As New DataGridViewTextBoxColumn With 
{ 
    Header = "Date" 
    DataPropertyName = "DATE" 
} 

yourDataGridView.Columns.Add(column) 
yourDataGridView.AutoGenerateColumns = False 

はその後の行を生成します

yourDataGridView.DataSource = ds.Tables(0) 

のDataGridViewのDataSourceとしてあなたのDataTableを使用を表す一つの列を追加します。データ表。
必要に応じてDataGridViewの「衣装」をカスタマイズできます。