vb.net - VB.Net 2010 では、フォームの読み込み時にすべての DataSet テーブル列のデフォルト値を設定するにはどうすればよいですか?

Question

型指定されたデータソースを作成しましたが、ほぼすべてのフィールドのデフォルト値が null です。ソース テーブルのテーマを変更することはできません。

データセット テーブルをフォームにドラッグして、データグリッドを作成しました。ユーザーが新しい行を挿入しようとして、値のないフィールドを残した場合、データ ソース テーブルが受け入れない null が使用されます。

したがって、データセット テーブルの列を読み取り、DefaultValue を数値フィールドの場合は 0 に、文字列フィールドの場合は空白に設定したいと思います。

以下のコードでほとんどそれを持っていますが、最初の列のみを設定します。

Private Sub Form1_Load(ByVal sender As System.Object, 
                       ByVal e As System.EventArgs) Handles MyBase.Load
    'TODO: This line of code loads data into the 'DataSet1.MyTable' table. 
    'You can move, or remove it, as needed.
    Me.MyTableTableAdapter.Fill(Me.DataSet1.MyTable)

    For Each DataColumn In DataSet1.MyTable.Columns
        If DataColumn.DataType = Data.DbType.Decimal Then
            DataSet1.MyTable.Columns.Item(DataColumn).DefaultValue = 0
        Else
            DataSet1.MyTable.Columns.Item(DataColumn).DefaultValue = " "
        End If

    Next

End Sub