Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As New List(Of m_stru)
Dim t As New m_stru("zhang", "male", "20")
a.Add(t)
DataGridView1.DataSource = a
End Sub
Structure m_stru
Property name As String
Property sex As String
Property age As String
Sub New(ByVal a As String, ByVal b As String, ByVal c As String)
name = a
sex = b
age = c
End Sub
End Structure
vb2010属性可自动实现,不需设置set /get
http://blog.youkuaiyun.com/zhvsby/article/details/6836141