主题：自动编号 --日期格式

表内的数据是这样的“2016-10-22”日期数据 ，但是赋值需要    #10/22/2016#

帮助方件里 （下面标识这行，老出错，我自已调试了，发现是格式问题“，请教如何处理
If e.DataCol.Name = "日期" Then

    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
End If

这个代码不应该出错，除非您之前的编号列已经有内容，但是这些现有编号不符合代码中规定的编码规则。

你先检查一下，搞不定的话，做个例子发上来给我们看看。