请教编码的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教编码的问题

共有1976人关注过本帖树形打印复制链接主题：请教编码的问题

jswjyjf

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

加好友

发短信

等级：九尾狐帖子：2552 积分：20045 威望：0 精华：0 注册：2012/5/19 11:57:00

请教编码的问题 发帖心情

Post By：2014/12/10 20:50:00 [只看该作者]

收款付款费用都放在一个表，以单据号区别如收款sk000001 以此类推，同样费用 FY000001 以此类推，付款Fk000001 。。。。

如果新开收款单新号码是SK000002 , 如新开付款单新号码FK000002 代码如何写

有点甜

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

加好友

发短信

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

Post By：2014/12/10 20:56:00 [只看该作者]

一样那样写，判断开什么但，先用compute得到最大的编号，然后加1即可。

http://www.foxtable.com/help/topics/2403.htm

jswjyjf

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

加好友

发短信

等级：九尾狐帖子：2552 积分：20045 威望：0 精华：0 注册：2012/5/19 11:57:00

Post By：2014/12/10 21:03:00 [只看该作者]

'Dim bh As String = "SK" & Format(DataTables("资金收付").sqlCompute("Max(单据号)") + 1, "000000")
Dim bh As String="SK"
Dim max As String
    Dim idx As Integer
    max = DataTables("资金收付").sqlCompute("Max(单据号)","单据号 like '" & bh & "-%'")
msgbox(max)
    If max > "" Then '如果存在最大销售单号
        idx = CInt(max.Substring(9,3)) + 1 '获得最大销售单号的后三位顺序号,并加1
    Else
        idx = 1 '否则顺序号等于1
    End If
    msgbox(bh & "-" & Format(idx,"000000"))

假如开收款单这段代码对吗

有点甜

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

加好友

发短信

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

Post By：2014/12/10 21:06:00 [只看该作者]

Dim bh As String="SK"
Dim max As String
Dim idx As Integer
max = DataTables("资金收付").sqlCompute("Max(单据号)","单据号 like '" & bh & "-%'")
msgbox(max)
If max > "" Then '如果存在最大销售单号
idx = CInt(max.Substring(bh.Length+1)) + 1 '获得最大销售单号的后三位顺序号,并加1
Else
idx = 1 '否则顺序号等于1
End If
msgbox(bh & "-" & Format(idx,"000000"))

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

主题：请教编码的问题