\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'求最大立帐编码
        Dim d As Date = kym
        Dim y As Integer = d.Year
        Dim m As Integer = d.Month
        Dim Days As Integer = Date.DaysInMonth(y,m)
        Dim fd As Date = New Date(y,m,1) \'获得该月的第一天
        Dim ld As Date = New Date(y,m,Days) \'获得该月的最后一天
        Dim bh As String = "应收"& "-" & Format(d,"yyyyMM") & "-" \'生成编号的前缀
        Dim max As String
        Dim idx As Integer
        Dim flt As String
        flt = "立帐编码 like \'bh\'"       
        max = DataTables("销售出库明细").Compute("Max(立帐编码)",flt) \'取得该月的相同凭证类型的最大凭证编码
        If max > "" Then \'如果存在最大凭证编码
            idx = CInt(max.Substring(12,4)) + 1 \'获得最大编号的后四位顺序号,并加1
        Else
            idx = 1 \'否则顺序号等于1
        End If
        Dim dd = bh & Format(idx,"0000")
        \'\'\'\'\'\'\'\'\'\'\'\'\'\'\'求最大立帐编码

求最大立帐编码最大值，不知哪出问题了，求出来的都是0001

还是不行

这个可以了

不知为什么，我昨日只能看到二条记录