- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 求按钮代码 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=25095)
-- 发布时间：2012/10/31 11:50:00
-- 求按钮代码
当“评分”栏中输入“甲”时，在窗口中输入1后，点击缺经按钮，表中缺经显示5（是缺经1的5倍），在窗口中再输入1后，点击缺经按钮，表中缺经累计显示10，即累计。
当“评分”栏中输入“乙”时或“”时，在窗口中输入1后，点击缺经按钮，表中缺经显示3（是缺经1的3倍），在窗口中再输入1后，点击缺经按钮，表中缺经累计显示6，即累计。
此主题相关图片如下：124.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目5.table |
-- 发布时间：2012/10/31 12:05:00
--
代码这样写。
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
-- 发布时间：2012/11/8 18:00:00
--
谢谢