DataGridView绑定数据源

      给DataGridView绑定数据源比較简单，方法主要有两种：

1、直接在控件属性中绑定数据源，这样的方法最简单，但它是直接连接数据库的，这样就和传DataTable的后果差点儿相同了，所以还是尽量避开吧。

2、通过代码将实体集合作为DataGridView的数据源，如今以《添加删除用户》窗口为例来简介下

窗口界面

      功能介绍：当用户级别改变时，表格控件中显示该用户级别的用户信息

      编辑控件：右击控件选中“加入列”——进行列的加入和编辑，编辑时须要用的仅仅有三个

      (1)是列名，这个可改可不改（2）是与实体中相应的属性名称（3）是表头信息，这三个也能够在代码中写。假设不设置Name属性，在载入数据的时候将自己主动改为作为数据源的实体的属性名，在删除不须要字段的时候能够用得着。

U层代码

    Private Sub cboLevel_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboLevel.SelectedIndexChanged
        Dim euserIn As New E_UserInfo
        Dim bselectUser As New B_AddRemoveUser
        Dim userList As New List(Of E_UserInfo)
        'Dim userBindList As New BindingList(Of E_UserInfo)             '将BindingList作为数据源遇到问题，先省略

        euserIn.Level = cboLevel.GetItemText(cboLevel.SelectedItem)     '获取用户级别组合框的当前文本,并传递给E层
        userList = bselectUser.SelectUserInfo(euserIn)                  '将查询到的信息保存在euserStore中

        '假设集合中没有记录，退出该过程
        If userList.Count = 0 Then
            Exit Sub
        End If

        dtgUserInfo.AutoGenerateColumns = False             '不同意自己主动加入列
        dtgUserInfo.DataSource = userList                   '把泛型集合当做DataGridView的数据源

        '删除不须要显示的字段
        dtgUserInfo.Columns.Remove("Password")
        dtgUserInfo.Columns.Remove("Level")

        '将DataGridView的标题改为中文，在控件属性中已经设置，这里就能够省去了
        'dtgUserInfo.Columns(0).HeaderText = "username"
        'dtgUserInfo.Columns(1).HeaderText = "姓名"
        'dtgUserInfo.Columns(4).HeaderText = "开户人"

    End Sub

B层代码

Imports Entity.entity
Imports DAL.dal
Imports System.Collections
Public Class B_AddRemoveUser
    Public Function SelectUserInfo(ByVal user As E_UserInfo) As IList
        Dim userList As New List(Of E_UserInfo)
        Dim dUser As New D_UserDAO

        userList = dUser.SelectUserInfo(user)       '将用户信息传入D层

        Return userList                             '返回用户信息
    End Function

    Public Function DeleteUser(ByVal user As E_UserInfo) As Boolean
        Dim dUser As New D_UserDAO
        Return dUser.deleteUser(user)       		'返回数据库删除用户是否成功
    End Function
End Class

D层代码

    Public Function SelectUserInfo(ByVal user As E_UserInfo) As IList
        Dim mySqlHelper As New SqlHelper        '实例化SqlHelper
        Dim dt As New DataTable                 '定义一个DataTable数据表
        Dim cmdText As String = "Select UserID, UserName, Operator From T_UserInfo Where Level=@Level"
        Dim paras As SqlParameter() = {New SqlParameter("@Level", user.Level)}  '将參数传入SqlHelper
        dt = mySqlHelper.ExecSelect(cmdText, CommandType.Text, paras)           '运行查询

        Dim myList As New List(Of E_UserInfo)                       '定义一个集合用来保存转化后的泛型集合
        myList = ConvertHelper.ConvertToList(Of E_UserInfo)(dt)     '调用实体转换类，将DataTable转换为泛型集合

        Return myList           		'返回实体集合
    End Function

       这样就是能用DataGridView显示我们须要的信息了，这样的方法easy忽略导致出错的地方有两个：1、数据库表中的字段名和实体中的属性名不一样。2、实体的属性名和DataGridView中自己定义的数据名不一样。如果是由于第2种出错，那仅仅能说太粗心了。如今给出第1种的解决方法，先如果一个情景：数据库表中“username”的字段名是“UserNo”，实体中对应的属性名是“UserID”，这样就导致了信息不匹配的问题，所以须要转化一下，最简单的就是利用As把上边D层的查询代码改为

      "Select  UserNo As UserID , UserName, Operator From T_UserInfo Where Level=@Level"

      As对数据库字段的转换功能很有意思，本来想用数据库演示一下的，仅仅是SQL软件还没好就算了吧……