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

我想很多办法，如果不借用writevalue来实现，暂无办法，请老大指点！应该如何实现这个效果。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:88d.rar

谢谢！！试过，这方法确实可以解决。

但另外一个问题，没有做任何修改，当前行为什么会是红色的呢？（说明有修改列数值），请老大看看！！

现在又遇到一个问题，在“.”后数据为0时无法输入，一输入连小数点都没了。请老大指点！！

你可以再加一个条件，比较控件的值和列中的当前值，如果不等，才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

这个不复杂吧？