主题：有关e.Sender.WriteValue()问题。(已解决）

例子?

我看了，这个问题是无解的，你只能不这么用。

输入1.，执行writevalue，结果就会变为1，这是必然的。

将代码这么改一下：

if Not e.Sender.Text.EndsWith(".") Then
   e.Sender.WriteValue()
End If

就能输入小数点了

你可以再加一个条件，比较控件的值和列中的当前值，如果不等，才WriteValue。

注意比较的时候，要用控件的Text属性，转换为数值后才和列的当前值比较。

16楼的办法完全可行。

满足两个条件：

1、text不是以.结尾

2、text转换为数值后和表中的当前值不等，才WriteValue

大概就是这样：

Dim txt As String = e.Sender.Text

Dim Val As Double = Val(text)

if txt.EndsWith(".")= False Andalso Val <> Tables("XXX").Current("YYY") Then
   e.Sender.WriteValue()
End If

这个不复杂吧？

自己动手，丰衣足食