主题：[求助]内部表后台自动编号代码不执行？

自动编号的问题尚未解决：

If e.DataCol.Name = "RQ" Then
    If e.DataRow.IsNull("RQ") Then
        e.DataRow("BH") = Nothing
    Else
        Dim max As String
        max = e.DataTable.Compute("Max(BH)","RQ = #" & e.DataRow("RQ") & "#")
        Dim bm As String = Format(e.DataRow("RQ"),"yyyyMMdd")
        Dim var As String = Vars("zdbh")
        Dim idx As Integer
        If e.DataRow("BH").StartsWith(bm) = False  '取得编号的8位前缀
            If var = "" Then
                idx = 1
               
            Else
                If max > "" Then
                    idx = CInt(max.Substring(9,3)) + 1
                Else
                    idx = CInt(var.Substring(9,3)) + 1
                End If
                e.DataRow("BH") = bm & "-" & Format(idx,"000")  vars不等空值时,生不成编号。
            End If
        End If
    End If
End If

当变量vars不等于空值时，当前编号可以自动编。

当变量vars不等空值时，生不成编号。

 If var = "" Then
                idx = 1 

 e.DataRow("BH") = bm & "-" & Format(idx,"000")  编号不能生成。

这两段代码位置感觉有问题，但不知如何调整。