自定义数据集的数据添加

     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim dsinfor As DSInformation = New DSInformation
        Dim tbPersonRow As DSInformation.PersonRow
        tbPersonRow = dsinfor.Person.NewPersonRow
        tbPersonRow.age = "aaa"
        tbPersonRow.name = "bbb"
        dsinfor.Person.AddPersonRow(tbPersonRow)

        DataGrid1.DataSource = dsinfor.Person
    End Sub