VB.Net创建数据表并添加记录的实例

分类：VB.Net

乐博网lob.cn提示：调试环境为 vs2005 +  windows2003 / windows2008 / xp / vista + .NET Framework 2.0

代码如下：

Option Strict On

Public Class LOB

    Private Sub LOB_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' 建立"乐博网产品"数据表
        Dim myTable As New DataTable("乐博网产品")

        ' 建立"产品编号"字段
        myTable.Columns.Add("产品编号", System.Type.GetType("System.Int32"))

        ' 定义"产品编号"字段的结构描述
        With myTable.Columns("产品编号")
            .AllowDBNull = False
            ' 设定"产品编号"字段是一个自动编号字段
            .AutoIncrement = True
            ' 将自动编号字段的种子设定成 1
            .AutoIncrementSeed = 1
            ' 将自动编号字段的递增值设定成 1
            .AutoIncrementStep = 1
            ' 设定"员工编号"字段是一个只读字段
            .ReadOnly = True
        End With

        ' 建立"产品名称"字段
        myTable.Columns.Add("产品名称", System.Type.GetType("System.String"))
        myTable.Columns("产品名称").AllowDBNull = False
        myTable.Columns("产品名称").MaxLength = 40

        ' 建立"供货商编号"字段
        myTable.Columns.Add("供货商编号", System.Type.GetType("System.Int32"))
        myTable.Columns("供货商编号").AllowDBNull = False

        ' 建立"类别编号"字段
        myTable.Columns.Add("类别编号", System.Type.GetType("System.Int32"))
        myTable.Columns("类别编号").AllowDBNull = False

        ' 建立"单位数量"字段
        myTable.Columns.Add("单位数量", System.Type.GetType("System.String"))
        myTable.Columns("单位数量").AllowDBNull = False
        myTable.Columns("单位数量").MaxLength = 20

        ' 建立"单价"字段
        myTable.Columns.Add("单价", System.Type.GetType("System.Double"))
        myTable.Columns("单价").AllowDBNull = False

        ' 建立"库存量"字段
        myTable.Columns.Add("库存量", System.Type.GetType("System.Int32"))
        myTable.Columns("库存量").AllowDBNull = False

        ' 建立"已订购量"字段
        myTable.Columns.Add("已订购量", System.Type.GetType("System.Int32"))
        myTable.Columns("已订购量").AllowDBNull = False

        ' 建立"安全存量"字段
        myTable.Columns.Add("安全存量", System.Type.GetType("System.Int32"))
        myTable.Columns("安全存量").AllowDBNull = False

        ' 建立"存量警示"字段
        myTable.Columns.Add("存量醒目", System.Type.GetType("System.String"), _
          "IIF(库存量 < 安全存量,'库存不足','库存足够')")
        myTable.Columns("存量醒目").ReadOnly = True

        ' 建立“不再销售”字段
        myTable.Columns.Add("不再销售", System.Type.GetType("System.Boolean"))
        myTable.Columns("不再销售").AllowDBNull = False
        myTable.Columns("不再销售").DefaultValue = 0

        ' 将 DataGridView 控件系结至 DataTable 对象
        DataGridView1.DataSource = myTable

        ' 新增资料列
        Dim newRow As DataRow

        newRow = myTable.NewRow()
        newRow("产品名称") = "乐博网苹果汁"
        newRow("供货商编号") = 1
        newRow("类别编号") = 1
        newRow("单位数量") = "每箱 24 瓶"
        newRow("单价") = 18
        newRow("库存量") = 39
        newRow("已订购量") = 0
        newRow("安全存量") = 10
        newRow("不再销售") = 0
        myTable.Rows.Add(newRow)

        newRow = myTable.NewRow()
        newRow("产品名称") = "乐博网牛奶"
        newRow("供货商编号") = 1
        newRow("类别编号") = 1
        newRow("单位数量") = "每箱 24 瓶"
        newRow("单价") = 19
        newRow("库存量") = 17
        newRow("已订购量") = 40
        newRow("安全存量") = 20
        newRow("不再销售") = 0
        myTable.Rows.Add(newRow)

        newRow = myTable.NewRow()
        newRow("产品名称") = "乐博网西红柿酱"
        newRow("供货商编号") = 1
        newRow("类别编号") = 2
        newRow("单位数量") = "每箱 12 瓶"
        newRow("单价") = 10
        newRow("库存量") = 13
        newRow("已订购量") = 70
        newRow("安全存量") = 25
        newRow("不再销售") = 0
        myTable.Rows.Add(newRow)

        newRow = myTable.NewRow()
        newRow("产品名称") = "乐博网盐巴"
        newRow("供货商编号") = 2
        newRow("类别编号") = 2
        newRow("单位数量") = "每箱 12 包"
        newRow("单价") = 22
        newRow("库存量") = 53
        newRow("已订购量") = 0
        newRow("安全存量") = 15
        newRow("不再销售") = 0
        myTable.Rows.Add(newRow)

        newRow = myTable.NewRow()
        newRow("产品名称") = "乐博网麻油"
        newRow("供货商编号") = 2
        newRow("类别编号") = 2
        newRow("单位数量") = "每箱 12 瓶"
        newRow("单价") = 21.35
        newRow("库存量") = 0
        newRow("已订购量") = 0
        newRow("安全存量") = 0
        newRow("不再销售") = 1
        myTable.Rows.Add(newRow)

        newRow = myTable.NewRow()
        newRow("产品名称") = "乐博网酱油"
        newRow("供货商编号") = 3
        newRow("类别编号") = 2
        newRow("单位数量") = "每箱 12 瓶"
        newRow("单价") = 25
        newRow("库存量") = 120
        newRow("已订购量") = 0
        newRow("安全存量") = 25
        newRow("不再销售") = 0
        myTable.Rows.Add(newRow)

        newRow = myTable.NewRow()
        newRow("产品名称") = "乐博网海鲜粉"
        newRow("供货商编号") = 3
        newRow("类别编号") = 7
        newRow("单位数量") = "每箱 30 盒"
        newRow("单价") = 30
        newRow("库存量") = 15
        newRow("已订购量") = 0
        newRow("安全存量") = 10
        newRow("不再销售") = 0
        myTable.Rows.Add(newRow)

        newRow = myTable.NewRow()
        newRow("产品名称") = "乐博网胡椒粉"
        newRow("供货商编号") = 3
        newRow("类别编号") = 2
        newRow("单位数量") = "每箱 30 盒"
        newRow("单价") = 40
        newRow("库存量") = 6
        newRow("已订购量") = 0
        newRow("安全存量") = 0
        newRow("不再销售") = 0
        myTable.Rows.Add(newRow)

        newRow = myTable.NewRow()
        newRow("产品名称") = "乐博网赞油鸡"
        newRow("供货商编号") = 4
        newRow("类别编号") = 6
        newRow("单位数量") = "每袋 500 克"
        newRow("单价") = 97
        newRow("库存量") = 29
        newRow("已订购量") = 0
        newRow("安全存量") = 0
        newRow("不再销售") = 1
        myTable.Rows.Add(newRow)
    End Sub

    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

    End Sub
End Class