主题：请教编码的问题

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

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

 '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"))

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