ToTable:既存のDataViewを基に新しいDataTableを作成する
VB
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim dt As New DataTable
With dt
.Columns.Add("Name", GetType(String)) '氏名
.Columns.Add("Country", GetType(String)) '出身国
.Columns.Add("Age", GetType(Integer)) '年齢
.Rows.Add("アリス", "アメリカ", "10")
.Rows.Add("山田太郎", "日本", "18")
.Rows.Add("山田太郎", "日本", "25")
End With
'列の制限(重複は排除)
Dim dt3 = dt.DefaultView.ToTable(True, "Name", "Country")
'出力結果---
'アリス アメリカ
'山田太郎 日本
'DataGridViewに反映させる場合
'DataGridView1.DataSource = dt3
End Sub
コメント