以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求按钮代码  (http://foxtable.com/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
--  
谢谢