主题：如何解决下列问题：有条件计算

如何解决下列问题：有条件计算？求按钮代码。 

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

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

 

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

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

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

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

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

非常感谢您起的这么早给我解决问题，谢谢!!!

 

请问，下列代码为啥放入按钮“缺经”中出现错误。

 

If MessageBox.Show("警告:本操作仅限于数值累计,执行后将累计数值!" & vbcrlf & "单击'是'累计,单击'否'退出","提示",MessageBoxButtons.YesNo) = DialogResult.Yes Then
    If e.DataCol.Name = "缺经1"
         Dim s As String = "评分 = '" & e.DataRow("评分") & "' and [_Identify] <= " & e.DataRow("_Identify")
        If e.DataRow("评分") = "甲"
        e.DataRow("缺经") =e.DataRow("缺经")+ e.DataTable.Compute("sum(缺经1)",s)* 5
         Else
        e.DataRow("缺经") = e.DataRow("缺经")+e.DataTable.Compute("sum(缺经1)",s)* 3
         End If
    Else
    Forms("窗口1").Open
    End If
End If