试试
If e.DataCol.IsString Then If e.DataCol.Name = "第二列" AndAlso e.newvalue <> Nothing Then e.NewValue = StrToNarrow(Cstr(e.NewValue).Replace(chr(-24157), ".")) End IfEnd If