| 网站首页 | VB.Net实例分析 | .Net技术文摘 | 下载中心 | VB.Net书籍笔记 | .Net源码 | VBS脚本与组件调用 | Windows2008技术文摘 | 给我们留言 | 
最新公告:

  没有公告

您现在的位置: 乐博网 >> VB.Net实例分析 >> 数据库编程 >> 实例分析正文
最新推荐 更多内容
VB.Net建立数据表和字段的实例
VB.Net建立数据表和字段的实例
作者:ILU    来源:乐博网整理     更新时间:2010-1-12

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"))
        myTable.Columns("订单号码").AllowDBNull = False

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

        ' 建立“单价”字段
        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.Decimal"))
        myTable.Columns("折扣").AllowDBNull = False

        ' 建立“销售金额”字段
        myTable.Columns.Add("销售金额", System.Type.GetType("System.Double"), "单价 * 销售数量 * (1-折扣)")
        ' 将「销售金额」字段设定成一个只读字段
        myTable.Columns("销售金额").ReadOnly = True

        ' 建立“总金额”字段
        myTable.Columns.Add("总金额", System.Type.GetType("System.Double"), "Sum(销售金额)")
        ' 将“销售金额”字段设定成一个只读字段
        myTable.Columns("总金额").ReadOnly = True

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

    Private Sub DataGridView1_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles DataGridView1.DataError
        MessageBox.Show(e.Exception.Message)
    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

 

  • 上一篇:

  • 下一篇:
  • 【字体: 】【打印此文】【关闭窗口
      相关文章:(只显示最新16条)
    APICalls(VB2010实例)
    DataComboBox(VB2010实例)
    创建数据库(VB2010实例)
    VB.Net创建数据表并添加记录的实例
    VB.Net定义字段结构描述的实例
    VB.Net自动创建数据库的实例
    VB.Net创建数据表和字段的实例
    附加.mdf数据库的实例
    VB.Net连接.mdf数据库的实例
    调用.mdf数据库文件的实例
    调用Excel数据库的实例
    用OleDbConnectionStringBuilder对象来构建连接字符串…
    显示数据库连接状态的实例
    从应用程序配置文件获取数据库连接字符串的实例
    将DataGridView控件绑定到BindingSource组件的实例
    用SqlConnectionStringBuilder对象来构建连接字符串的…

    | 设为首页 | 加入收藏 | 联系站长 | | 友情链接 | 版权申明 |
    乐博网欢迎各种媒体转载我们的原创作品[转载请注明出处];我们鼓励更多VB.Net开发者一起加入研究与探讨;如发现文章访问错误、内容错误或版权疑问、内容有违相关法律(如涉及政治、色情、反动或散布虚假有害信息)等情况,请及时向我们举报,我们将及时纠正!
    联系邮箱:Shiny#vip.qq.com (#替换为@) QQ交流群: 40797788 [闽ICP备05014267号]