主题：求按钮代码

当“评分”栏中输入“甲”时，在窗口中输入1后，点击缺经按钮，表中缺经显示5（是缺经1的5倍），在窗口中再输入1后，点击缺经按钮，表中缺经累计显示10，即累计。

当“评分”栏中输入“乙”时或“”时，在窗口中输入1后，点击缺经按钮，表中缺经显示3（是缺经1的3倍），在窗口中再输入1后，点击缺经按钮，表中缺经累计显示6，即累计。

此主题相关图片如下：124.jpg

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

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

 代码这样写。

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

谢谢