以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]顺序编号  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129192)
--  作者：blsu33
--  发布时间：2018/12/23 21:55:00
--  [求助]顺序编号
老师，
  网络编号已经做好了 列("numbers"），但在录入的时候 ，希望再本地列("jurnumbers")自动在网络编号上再加  “/01” “/02”....

以下不能实现，为什么呢？
Dim r2 As Row = bxmx.Table.AddNew
        ‘’Dim manid As String=r2.Table.Compute("Max(jurnumbers)","numbers=\'"& r("numbers") &"\'")
        ‘’MessageBox.Show( CInt(manid))
 r2("jurnumbers")=r("numbers"）& "/" & iif(r2.Index=0,Format(r2.Index+1,"00"),Format(r2.Table.Compute("Max(jurnumbers)"),"numbers=\'"& r("numbers") &"\'"))+1,"00")
[此贴子已经被作者于2018/12/23 21:55:26编辑过]
--  作者：有点甜
--  发布时间：2018/12/23 22:52:00
--  

1、现在执行代码的时候有什么问题？请具体说明。

 

2、不然做一个实例发上来测试吧。
--  作者：blsu33
--  发布时间：2018/12/23 23:04:00
--  
录入窗口的 增加按钮事件
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:例子.foxdb
--  作者：有点甜
--  发布时间：2018/12/23 23:16:00
--  

Dim bxmx As WinForm.Table = e.Form.Controls("Table1")
Dim bxhz As WinForm.Table = e.Form.Controls("Table2")
bxmx.Table.AllowEdit=True
Dim r2 As Row = bxmx.Table.AddNew
Dim r As Row = bxhz.Table.Current
Dim manid =r2.Table.Compute("Max(jurnumbers)","jurnumbers like \'"& r("第一列") & "%\'")

If manid > ""  Then
    Dim ary = manid.split("/")
    r2("jurnumbers")=r("第一列") & "/" & Format(ary(1)+1,"00")
Else
    MessageBox.Show( CInt(manid))
    r2("jurnumbers")=r("第一列") & "/" & "01"
End If