主题：求按钮代码

 代码这样写。

If MessageBox.Show("警告:本操作仅限于数值累计,执行后将累计数值!" & vbcrlf & "单击'是'累计,单击'否'退出","提示",MessageBoxButtons.YesNo) = DialogResult.Yes Then
    Dim r As Row = Tables("表A").Current  
    Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
    If r("评分") = "甲" Then
        r("缺经") = r("缺经") + txt.Text * 10
    Else If r("评分") = "乙" Then
        r("缺经") = r("缺经") + txt.Text * 3
    End If
Else
    Forms("窗口1").Close
End If