主题：自动生成编号语局错误

Dim rq As WinForm.DateTimePicker = e.Form.Controls("日期")
Dim djlx As WinForm.ComboBox = e.Form.Controls("单据类型")
Dim pp As WinForm.ComboBox = e.Form.Controls("品牌")
Dim md As WinForm.ComboBox = e.Form.Controls("门店")
Dim djbh As WinForm.TextBox = e.Form.Controls("单据编号")

If rq.Value = Nothing   Then
    djbh.Text =""
 Else
        Dim bh As String = Format(rq.value,"yyyyMMdd") '取得编号的8位前缀
        If   DataTables("库调明细表_主表").DataRow("业务单号").StartsWith(bh) = False 
            Dim max As String
            Dim idx As Integer
            max = e.DataTables("库调明细表_主表").Compute("Max("业务单号")","单据日期 = #" & rq.Value & "# And [_Identify] <> " & DataTables("库调明细表_主表").DataRow("_Identify") And ) 
            If max > "" Then '如果存在最大编号
                idx = CInt(max.Substring(9,3)) + 1             Else
                idx = 1 
            End If
            djbh.text = bh & "-" & Format(idx,"000")
        End If
    End If
End If

 试试这样改。

 

Dim rq As WinForm.DateTimePicker = e.Form.Controls("日期")
Dim djlx As WinForm.ComboBox = e.Form.Controls("单据类型")
Dim pp As WinForm.ComboBox = e.Form.Controls("品牌")
Dim md As WinForm.ComboBox = e.Form.Controls("门店")
Dim djbh As WinForm.TextBox = e.Form.Controls("单据编号")

If rq.Value = Nothing   Then
    djbh.Text =""
Else
    Dim bh As String = Format(rq.value,"yyyyMMdd") '取得编号的8位前缀
    If   Tables("库调明细表_主表").Current("业务单号").StartsWith(bh) = False
        Dim max As String
        Dim idx As Integer
        max = DataTables("库调明细表_主表").Compute("Max(业务单号)","单据日期 = #" & rq.Value & "# And [_Identify] <> " & Tables("库调明细表_主表").current("_Identify"))
        If max > "" Then '如果存在最大编号
            idx = CInt(max.Substring(9,3)) + 1
        Else
            idx = 1
        End If
        djbh.text = bh & "-" & Format(idx,"000")
    End If
End If

还是不行，唉！

出现什么问题? 编号不正常还是报错? 

  请帮忙看下以下代码哪儿错了，

max = DataTables("库调明细表_主表").Compute("Max(业务单号)","[单据日期] = #" & rq.Value & "#  And [_Identify] <> " & Tables("库调明细表_主表").current("_Identify") And "品牌" = "pp.text" And "门店" = "md.text")，执行后提示为

<!--StartFragment -->

       

此主题相关图片如下：qq图片20140423211532.jpg

 这样改一下

 

max = DataTables("库调明细表_主表").Compute("Max(业务单号)","[单据日期] = #" & rq.Value & "#  And [_Identify] <> " & Tables("库调明细表_主表").current("_Identify") & " And 品牌 = '" & pp.text & "' And 门店 = '" & md.text & "'")

版主真厉害，我就没想到，谢谢啦！