vb.net 手记

1。对应事件于函数

 AddHandler ds.Tables("hospital").ColumnChanging, AddressOf Hospital_ColumnChanging

2。数据库连接datagrid

  Protected Sub BindAType()
        con = New SqlConnection(ConnectionInfo.conStr)

        If Not ds.Tables("aType") Is Nothing Then
            ds.Tables("aType").Clear()
        End If
        adaA = New SqlDataAdapter("select * from ActivityType where valid=1 order by ActivityTypeNum", con)
        adaA.Fill(ds, "aType")

        Dim ts As New DataGridTableStyle()
        ts.MappingName = "aType"

        Dim cs As New DataGridTextBoxColumn()
     &