End With

myTable.Columns.Add(myColumn)

    dt = System.Type.GetType("System.Int32")

myColumn = New DataColumn("Quantity", dt)

    With myColumn

       .AllowDBNull = False

     End With

    myTable.Columns.Add(myColumn)

    myColumn = New DataColumn 

    myColumn.DataType = System.Type.GetType("System.Decimal") 

    myColumn.AllowDBNull = False 

    myColumn.Caption = "Price"  

    myColumn.ColumnName = "Price" 

    myColumn.DefaultValue = 25 

    myTable.Columns.Add(myColumn) 

dt = System.Type.GetType("System.Decimal")

   myColumn = New DataColumn("Tax", dt, "Price * .0862")

    With myColumn

       .AutoIncrement = False

       .ReadOnly = True

    End With

myTable.Columns.Add(myColumn)

    dt = System.Type.GetType("System.Decimal")

    strExpr = "Price * Quantity"

上一页  [1] [2] [3]  下一页