2011年7月19日火曜日

→→→DataGridにデータの内容を表示する

テーブルへのデータ追加
DataRow
      Dim dRow As DataRow
      dRow = dTbl.NewRow()
      dRow("Name") = "Smith"
      dTbl.Rows.Add( dRow )

dTbl -->  "id"<Column> "Name"<Column>  ---->   dRow("id") dRow("Name")

(A)
       Dim dTbl As DataTable = New DataTable
       Dim dRow As DataRow
       Dim dView As DataView
       Dim i As Integer

       dTbl.Columns.Add("id" , Type.GetType("SYstem.Int32"))
       dTbl.Columns.Add("Name" , Type.GetType("System.String"))
       For i = 0 To 9
            dRow = dTbl.NewRow()
            dRow(" id ") = i
            dRow(" Name ") = "item" & i
            dTbl.Rows.Add( dRow )
       Next
       dView = New DataView( dTbl )
       DataGrid1.DataSource = dView

(B)
       Dim dSet As DataSet = New DataSet("リス")
       Dim dTbl As DataTable
       dTbl = dSet.Tables.Add("種類")
       dTbl.Columns.Add("NO" , Type.GetType("System.Int32"))
       dTbl.Columns.Add("名前" , Type.GetType("System.String"))

       dTbl.Rows.Add( New Object() { 1 , "シマリス" })
       dTbl.Rows.Add( New Object() { 2 , "エゾリス" })
       dTbl.Rows.Add( New Object() { 3 , "シケリス" })
       DataGrid1.SetDataBinding( dSet , "種類" )

(C)
       Dim dSet As DataSet = New DataSet
       Dim dTbl As DataTable
       Dim dRow As DataRow
       Dim i As Integer
       dTbl = dSet.Tables.Add("種類")
       dTbl.Columns.Add("NO" , Type.GetType("System.String"))

       For i = 0 To  9
            dRow = dTbl.NewRow()
            dRow("NO") = i
            dTbl.Rows.Add( dRow )
       Next
       DataGrid1.SetDataBinding( dSet, "種類")

   

0 件のコメント:

コメントを投稿