- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何解决下列问题：有条件计算 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=25040)
-- 发布时间：2012/10/29 23:35:00
-- 如何解决下列问题：有条件计算
如何解决下列问题：有条件计算？求按钮代码。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目5.table |
当“评分”栏中输入“甲”时，在窗口中输入1后，点击缺经按钮，表中缺经显示5（是缺经1的5倍），在窗口中再输入1后，点击缺经按钮，表中缺经累计显示10，即累计。
当“评分”栏中输入“乙”时或“”时，在窗口中输入1后，点击缺经按钮，表中缺经显示3（是缺经1的3倍），在窗口中再输入1后，点击缺经按钮，表中缺经累计显示6，即累计。
此主题相关图片如下：123.jpg
-- 发布时间：2012/10/30 6:59:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目5.zip |
-- 发布时间：2012/10/30 7:19:00
--
非常感谢您起的这么早给我解决问题，谢谢!!!
请问，下列代码为啥放入按钮“缺经”中出现错误。
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