主题：编号输入求代码

If e.DataCol.Name = "缸号" Then  '如果缸号列的内容发生变化

    If IsNumeric(e.NewValue) Then  '如果新值是数字

        e.DataRow("缸号")="A"+e.NewValue  '那么将"A"加在数字加前

    ElseIf  e.NewValue IsNot Nothing AndAlso  e.NewValue.Contains("a") Then  '判断是否包含"a"

        e.DataRow("缸号")=e.NewValue.Replace("a","A") '如果有"a",换成大定"A"

    End If

End If