vb.net - 在 VB.Net 2010 中，如何在表单加载时为所有数据集表列设置默认值？

Question

我创建了一个类型化的数据源，并且几乎每个字段都具有空默认值。我不允许自己更改源表。

我通过将数据集表拖到表单上创建了一个数据网格。如果用户尝试插入新行并留下没有值的字段，则使用数据源表不接受的 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