主题：窗口控件计算

求助表A窗口结果列计算

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

点击浏览该文件:管理项目1.table

控件的leave事件:::::::
if IsNumeric(e.Form.Controls("TextBox1").text) = false Then
    MsgBox ("请输入数字!!!")
    e.Form.Controls("TextBox1").value=""
    e.Form.Controls("TextBox1").Select()
else
    currenttable.current("结果") = currenttable.current("第一列") +currenttable.current("第二列") + e.Form.Controls("TextBox1").text
End If

此主题相关图片如下：未命名.bmp

人家笔误，将CurrentTable写错了而已，漏掉了字母b
错误提示如此清晰，错在哪一行也告诉你了，居然还看不出来。

这只是对当前行有效，我想在文本框输入数据后一次得到结果。比如输入了10行数据，在文本框输入数据后结果立即更新，输入第11行第1列和第2列数据后，结果自动得出（表达式效果）

Dim Val As Integer = e.Form.Controls("TextBox1").Value
if IsNumeric(Val)  Then
    For Each dr As DataRow In DataTables("表A").DataRows
        if dr.IsNull("第一列") OrElse dr.IsNull("第一列") Then
            dr("结果") = Nothing
        Else
            dr("结果") = dr("第一列") + dr("第二列") * Val
        End If
    Next
Else
    MessageBox.Show("确定","提示",MessageBoxButtons.Ok,MessageBoxIcon.Information)
    e.Form.Controls("TextBox1").Select()
End If

这段代码写在哪里?我现在做在一个按钮上是可以运行,但我的需求是：1、文本框的参数一直保存（即使重新打开项目）直到被修改；2、在第1列或第2列输入数据后及时更新，不需要按钮命令，就象表达式效果。

提问怎么象在挤牙膏。

修改控件textbox时,需要在控件textbox的相关事件(如:leave事件)中设置;
在第1列或第2列输入数据后及时更新时, 应该在表的DataColChanged事件中设置.

不好意思。我提问的思路是，先提出基本要求，满足后提出进一步要求，我怕一开始提出较高要求表达不明确。