DataColChanged
Select Case e.DataCol.Name
Case "第一列"
Tables(e.DataTable.Name).AutoSizeRow(Tables(e.DataTable.Name).Position)
End Select