主题：自动编号

哪位老师帮我看看哪里错了

If e.DataCol.name = "日期" AndAlso e.NewValue IsNot Nothing  Then
    Dim max As String = e.DataTable.SQLCompute("max(单号)", "日期 = # " & e.DataRow("日期") & " # ")

    Dim bh As String = "XS" & Format(e.DataRow("日期"), "yyyyMMdd")
    Dim idx As Integer = 0
    If max > "" Then
        idx = max.SubString(bh.Length)
    End If
    e.DataRow("单号") = bh & Format(idx+1, "000")
    e.DataRow.Save
End If

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