Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinDataSource
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ds As UltraDataSource = New UltraDataSource()
Dim col As UltraDataColumn = ds.Band.Columns.Add("Col1", GetType(String))
' Set the column's DefaultValue to string "Default".
col.DefaultValue = "Default"
Dim row As UltraDataRow = ds.Rows.Add()
' When no value is set, column's DefaultValue will be used.
' Following should print out the string "Default".
Debug.WriteLine("Before setting cell value = " & row(col))
row(col) = "Test"
Debug.WriteLine("After setting cell value = " & row(col))
End Sub