Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于字符串中找最大数


  共有3261人关注过本帖树形打印复制链接

主题：关于字符串中找最大数
帅哥哟，离线，有人找我吗？
dj68301367
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：358 积分：2707 威望：0 精华：0 注册：2015/4/12 12:13:00 		关于字符串中找最大数  发帖心情 Post By：2015/6/8 15:57:00 [只看该作者]

数据表有一列  是领料单编号

QC-LL1505013  需要用来求最大值的是1505013 ，如何可以做到双击Table，可以在当前行输入QC-LL1505014
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/6/8 16:05:00 [只看该作者]

DoubleClick事件

 

Dim max As String = e.Table.DataTable.Compute("max(第一列)")
If max = "" Then
    e.Row("第一列") = "QC-LL" & format(1, "0000000")
Else
    e.Row("第一列") = "QC-LL" & format(cint(max.SubString(5)) + 1, "0000000")
End If
 回到顶部
帅哥哟，离线，有人找我吗？
dj68301367
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：358 积分：2707 威望：0 精华：0 注册：2015/4/12 12:13:00 		  发帖心情 Post By：2015/6/9 16:00:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：xc.png
图片点击可在新窗口打开查看

 

我在窗体用以下代码，会出现图片的错误提示

 

DoubleClick事件

 

Dim max As String = e.Table.DataTable.Compute("max(第一列)")
If max = "" Then
    e.Row("第一列") = "QC-LL" & format(1, "0000000")
Else
    e.Row("第一列") = "QC-LL" & format(cint(max.SubString(5)) + 1, "0000000")
End If


 
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/6/9 16:01:00 [只看该作者]

窗体的DoubleClick 当然是没有 表的. 你为什么要在窗口里这样做呢? 没搞懂你想做什么

你不是要双击表么?  那么应该写到表的DoubClick
 回到顶部
帅哥哟，离线，有人找我吗？
dj68301367
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：358 积分：2707 威望：0 精华：0 注册：2015/4/12 12:13:00 		  发帖心情 Post By：2015/6/9 16:08:00 [只看该作者]

以下是引用Bin在2015/6/9 16:01:00的发言：
窗体的DoubleClick 当然是没有 表的. 你为什么要在窗口里这样做呢? 没搞懂你想做什么

你不是要双击表么?  那么应该写到表的DoubClick

 

对不起，想错了，代码更正过来了，另外一个窗体需要双击Textbox的。 已解决

 

Dim max As String = Tables("订单管理系统").Compute("max(请购单QC_单号)")

[此贴子已经被作者于2015/6/9 16:08:43编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 4 次数据查询