表是SQL服务器上的外部表，代码基本是复制粘贴帮助文件的代码，但是还是报错，不知道原因出在哪里！求大神指点迷津！

    Case "下单时间"
        If e.DataRow.IsNull("下单时间") Then
            e.DataRow("备货单号") = Nothing
        Else
            Dim bh As String = Format(e.DataRow("下单时间"),"yyyyMMdd") \'取得编号的8位前缀
            If e.DataRow("备货单号").StartsWith(bh) = False \'如果编号的前8位不符
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.Compute("Max(备货单号)","下单时间 = #" & e.DataRow("下单时间") & "# And [_Identify] <> " & e.DataRow("_Identify")) \'取得该天的最大编号
                If max > "" Then \'如果存在最大编号
                    idx = CInt(max.Substring(9,3)) + 1 \'获得最大编号的后三位顺序号,并加1
                Else
                    idx = 1 \'否则顺序号等于1
                End If
                e.DataRow("备货单号") = bh & "-" & Format(idx,"000")
            End If
        End If

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

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