CurrentTableChanged
For i As Integer = 0 To CurrentTable.Cols.Count - 1
CurrentTable.SetHeaderCellBackColor(CurrentTable.Cols(i).Name ,Color.White)
If CurrentTable.Cols(i).AllowEdit = True Then '如果此列允许修改(不是锁定列)
CurrentTable.SetHeaderCellForeColor(CurrentTable.Cols(i).Name ,Color.Black)
Else '如果此列不允许修改(是锁定列)
CurrentTable.SetHeaderCellForeColor(CurrentTable.Cols(i).Name ,Color.Red)
End If
Next