- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于字符串中找最大数 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69636)
-- 发布时间：2015/6/8 15:57:00
-- 关于字符串中找最大数
数据表有一列 是领料单编号
QC-LL1505013 需要用来求最大值的是1505013 ，如何可以做到双击Table，可以在当前行输入QC-LL1505014
-- 发布时间：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
-- 发布时间：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
-- 发布时间：2015/6/9 16:01:00
--
窗体的DoubleClick 当然是没有 表的. 你为什么要在窗口里这样做呢? 没搞懂你想做什么
你不是要双击表么? 那么应该写到表的DoubClick
-- 发布时间：2015/6/9 16:08:00
--
以下是引用Bin在2015/6/9 16:01:00的发言：
窗体的DoubleClick 当然是没有 表的. 你为什么要在窗口里这样做呢? 没搞懂你想做什么
窗体的DoubleClick 当然是没有 表的. 你为什么要在窗口里这样做呢? 没搞懂你想做什么
你不是要双击表么? 那么应该写到表的DoubClick
对不起，想错了，代码更正过来了，另外一个窗体需要双击Textbox的。 已解决
Dim max As String = Tables("订单管理系统").Compute("max(请购单QC_单号)")
[此贴子已经被作者于2015/6/9 16:08:43编辑过]