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()
cs.MappingName = "ActivityTypeNum"
cs.Width = 100
cs.HeaderText = "活动编码*"
ts.GridColumnStyles.Add(cs)
cs = New DataGridTextBoxColumn()
cs.MappingName = "ActivityType"