[求助]求助关于自动编号和提取数据问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.DataCol.name = "文号"
    If e.DataRow.isnull("文号") = False
        Dim bh As String = e.DataRow("文号") & Date.today().year
        Dim max As String = e.DataTable.Compute("max(第号)","文号 = '" & e.DataRow("文号") & "' And id <> " & e.DataRow("id"))
        Dim idx As Integer = 0
        If max > "" Then
            idx = max.SubString(bh.length, 3)
        End If
        e.DataRow("第号")= bh & Format(idx+1, "000") & "号"
    Else
        e.DataRow("第号")= Nothing
    End If
End If

主题：[求助]求助关于自动编号和提取数据问题