在DataColChanging事件设置代码:
if e.DataCol.Name = "编号列名称"
if e.NewValue.Length = 3 then
e.NewValue = "AAA" & e.NewValue
End if