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

Dim txt As String = e.Sender.Text
Dim Vl As Double = Val(txt)
if txt.EndsWith(".") Andalso Vl <> Tables("部门表").Current("数字类型") Then   '**不要这个『= False』
   e.Sender.WriteValue()
End If*