以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求按钮代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=25095)
--  作者：lyfxybc
--  发布时间：2012/10/31 11:50:00
--  求按钮代码

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

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



图片点击可在新窗口打开查看此主题相关图片如下：124.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目5.table
--  作者：lin_hailun
--  发布时间：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
--  作者：lyfxybc
--  发布时间：2012/11/8 18:00:00
--  
谢谢