此主题相关图片如下：1.png

好像是sql server 2008 的

此主题相关图片如下：1.png

你确定你的user数据源是sqlserver2008？直接执行 select getDate() 行不行？ select isnull(null, getdate()) 呢？

帮看看是哪问题,报未找到自定义函数的错误,有时候报数组越界异常,

Dim dr As DataRow
Dim t As Integer
Dim xh As Integer=0  

Dim numpre,numlen As String
Dim num As Integer   \'
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "select GETDATE()"
sqldate=cmd.ExecuteScalar()  

Do
    cmd.CommandText = "select ISNULL(sqdate,GETDATE() ) AS sqdate,preletter,len,ISNULL(number,0) AS number f

ro m getnumberid where tablename=\'" & tbname & "\' and colname=\'" & clname & "\'"
    dt = cmd.ExecuteReader()   \'读行记录
    If dt Is Nothing Then
        Exit Do
    End If
    dr = dt.DataRows(0)    \'第一行
    numdate=dr("sqdate")
    numpre=dr("preletter")
    numlen=dr("len")
    num=dr("number")
    t=(sqldate-numdate).TotalDays
    If t>0 Then
        cmd.commandtext = "Up date getnumberid Set number =1,sqdate=\'" & sqldate & "\' where tablename=\'" & tbname & "\' and colname=\'" & clname & "\' and ISNULL(number,0) =" & num
        xh=cmd.ExecuteNonQuery()
        num=1
        numdate=sqldate
    Else
        cmd.commandtext = "Upd ate getnumberid Set number =" & num+1  & " where tablename=\'" & tbname & "\' and colname=\'" & clname & "\' and ISNULL(number,0) =" & num
        xh=cmd.ExecuteNonQuery()
        num=num+1
    End If
   
    getbh=numpre.Trim() & "-" & CStr(numdate.year).SubString(2) & CStr(numdate.Month).PadLeft(2 ,"0")  & CStr(numdate.Day).PadLeft(2 ,"0")   & "-" &  CStr(num).PadLeft(numlen ,"0")
   
Loop While xh=0
Return getbh

此主题相关图片如下：2.png

 直接执行，是否报错？

http://www.foxtable.com/webhelp/scr/2318.htm

应该不是表的问题吧?

此主题相关图片如下：1.png

此主题相关图片如下：1.png