初学 关于datagrid的问题

Question

我的datagrid  的数据显示也不对 代码是这样的啊 Public DTable As New DataTable()
    Public DDateRow As DataRow
    Public DDataView As New DataView(DTable)     '***********************************
    Public Function BDataSource() As ICollection '定义一个类的共有方法
        Dim i As Integer        DTable.Columns.Add(New DataColumn("序号", GetType(String))) ' 设置标题名称，并设置数据列的数据类型
        DTable.Columns.Add(New DataColumn("姓名", GetType(String)))
        DTable.Columns.Add(New DataColumn("性别", GetType(String)))
        DTable.Columns.Add(New DataColumn("身份证号码 ", GetType(String)))
        DTable.Columns.Add(New DataColumn("所在部门", GetType(String)))
        DTable.Columns.Add(New DataColumn("所在班组", GetType(String)))
        DTable.Columns.Add(New DataColumn("职务", GetType(String)))
        DTable.Columns.Add(New DataColumn("职称", GetType(String)))
        DTable.Columns.Add(New DataColumn("学历", GetType(String)))
        DTable.Columns.Add(New DataColumn("用工性质", GetType(String)))
        DTable.Columns.Add(New DataColumn("用工类型", GetType(String)))        Dim objcls001 As New Cls_T001()
        If objcls001.T001_Select() = True Then            For i = 0 To adoRound - 1 '用一个循环向 DataGrid 控件赋值
                '以下的值可以通过各自表的类，从数据库的表中提取
                DDateRow = DTable.NewRow
                DDateRow(0) = objcls001.sF001
                DDateRow(1) = objcls001.sF002
                DDateRow(2) = objcls001.sF003
                DDateRow(3) = objcls001.sF004
                DDateRow(4) = objcls001.sF005
                DDateRow(5) = objcls001.sF006
                DDateRow(6) = objcls001.sF007
                DDateRow(7) = objcls001.sF008
                DDateRow(8) = objcls001.sF009
                DDateRow(9) = objcls001.sF010
                DDateRow(10) = objcls001.sF011
                DTable.Rows.Add(DDateRow)
                      Next i
            Return DDataView        End If
    End Function