以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于字符串中找最大数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69636)
--  作者：dj68301367
--  发布时间：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
--  作者：dj68301367
--  发布时间：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
--  发布时间：2015/6/9 16:01:00
--  
窗体的DoubleClick 当然是没有 表的. 你为什么要在窗口里这样做呢? 没搞懂你想做什么

你不是要双击表么?  那么应该写到表的DoubClick
--  作者：dj68301367
--  发布时间：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编辑过]