一个公共过程声明发生错误,不知道出现在哪儿.

Question

Public Sub AutoCustomSN(obj As TextBox, sType As Integer)
'如果客户编号为空或为0则列取数据库中最大值进行+1
    If sType = 1 Then
        conn.Close
        Set conn = Nothing
        Call objConn
        Dim rsListSN As New ADODB.Recordset
        rsListSN.CursorLocation = adUseClient
        sqlSN$ = "SELECT TOP 1 CustomNO FROM Custom ORDER BY CustomNO DESC"
        rsListSN.Open sqlSN, conn, 1, 1
        If rsListSN.EOF = False Then
            obj.text = CStr(rsListSN.Fields("CustomNO") + 1)
            If Len(obj.text) > 0 And Len(obj.text) < 7 Then
                intlen% = 7 - Len(obj.text)
                strZero$ = Left("0000000", intlen)
                obj.text = strZero & obj.text
            End If
        Else
            obj.text = CStr("0000001")
        End If
        Set rsListSN = Nothing
        AutoCustomSN = obj.text
        Exit Sub
    Else
        If Len(obj.text) > 0 And Len(obj.text) < 7 Then
            intlen% = 7 - Len(obj.text)
            strZero$ = Left("0000000", intlen)
            obj.text = strZero & obj.text
        End If
        AutoCustomSN = obj.text
    End If
End Sub
请问这个过程错在哪里?

Answer 1

Public Sub AutoCustomSN(obj As TextBox, sType As Integer)
'如果客户编号为空或为0则列取数据库中最大值进行+1
    If sType = 1 Then
        'conn.Close
        'Set conn = Nothing
        'Call objConn
        Dim rsListSN As New ADODB.Recordset
        rsListSN.CursorLocation = adUseClient
        sqlSN$ = "SELECT TOP 1 CustomNO FROM Custom ORDER BY CustomNO DESC"
        rsListSN.Open sqlSN, conn, 1, 1
        If rsListSN.EOF = False Then
            obj.text = Right("000000" & CStr(rsListSN.Fields("CustomNO") + 1), 7)
        Else
            obj.text = CStr("0000001")
        End If
        Set rsListSN = Nothing
    Else
        obj.text = Right("0000000" & obj.text, 7)
        AutoCustomSN = obj.text
    End If
    AutoCustomSN = obj.text
End Sub

Answer 2

Call objConn
这个在哪里定义？

Answer 3

这个已经定义了,好像错是错在.AutoCustomSN = obj.text

Answer 4

AutoCustomSN   =   obj.text
好像是这里了。