[求助]整数列单元格格的值，加1和减1按钮代码怎么写？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]整数列单元格格的值，加1和减1按钮代码怎么写？

共有2813人关注过本帖树形打印复制链接主题：[求助]整数列单元格格的值，加1和减1按钮代码怎么写？

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/17 19:04:00 [显示全部帖子]

currentTable.Value = val(currentTable.Value) + 1

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/17 22:47:00 [显示全部帖子]

具体一点你的问题。你的单元格的值是什么，最后要变成什么？

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/17 23:00:00 [显示全部帖子]

Dim str As String = "201805-366"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str,"[0-9.]+")
Dim s As String = mc(mc.count-1).value
msgbox(s)
str = str.replace(s, val(s) + 0.2)
msgbox(str)

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/18 8:50:00 [显示全部帖子]

Dim str As String = "中国.2"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str,"[0-9.]+")
If mc.count > 0 Then
    Dim s As String = mc(mc.count-1).value
    msgbox(s)
    str = str.replace(s, val(s) + 0.2)
    msgbox(str)
Else
    str = str & ".2"
    msgbox(str)
End If

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/18 9:27:00 [显示全部帖子]

Dim str As String = e.Form.Controls("TextBox1").Text
Dim mc = System.Text.RegularExpressions.Regex.Matches(str,"[0-9.]+")
If mc.count > 0 Then
    Dim s As String = mc(mc.count-1).value
    str = str.replace(s, val(s) + 0.2)
Else
    str = str & ".2"
End If

e.Form.Controls("TextBox1").Text = str

e.Form.Controls("TextBox1").writeValue

下一主题 >> << 上一主题

主题：[求助]整数列单元格格的值，加1和减1按钮代码怎么写？