主题：[求助]流水号自动生成问题

 打不开你的开发版项目。做了个小例子。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目8.foxdb

 嗯嗯，是的，要改成这句

Dim idx As String = e.DataTable.Compute("Max(存址号)", "全宗号 = '" & e.DataRow("全宗号") & "' And 年度 = " & e.DataRow("年度") & " And 分类号 in (0,2,3) And _Identify <> " & e.DataRow("_Identify"))

 比较大小是肯定能比较的。可能是在最后生成的时候出了差错。

这句
idx = idx.SubString(9) + 1

改成这句
idx = idx.SubString(e.DataRow("全宗号").length + e.DataRow("分类号").Length + e.DataRow("年度").length + 1) + 1

 如果列是字符类型，记得在左右加单引号 '

 "全宗号 = '" & e.DataRow("全宗号") & "'"
 

 DataTable不是你的数据库，只是你数据库的一个子集。而且，dataTable在未保存之前，都不会把数据写入数据库。

 这种问题，解决的方法，是需要编写SQL，去查询数据库最大值，然后编号，然后存储。

 http://www.foxtable.com/help/topics/1994.htm

 楼主，这句代码……

 If e.DataRow("分类号") = 4 Then

 你还希望怎么修改？

 楼主，这是最后的代码。

Dim idx As String
Dim czh As String = ""
Dim dt As DataTable
Dim cmd As New SQLCommand
cmd.C '设置数据源名称

Select Case e.DataCol.Name
    Case "全宗号", "年度", "分类号"
        If e.DataRow.IsNull("全宗号") = False AndAlso e.DataRow.IsNull("分类号") = False AndAlso e.DataRow.IsNull("年度") = False  Then
            If e.DataRow("分类号") = 0 OrElse e.DataRow("分类号") = 2  OrElse e.DataRow("分类号") = 4 Then
                czh = e.DataRow("全宗号") & "-" & e.DataRow("年度") & "-%"
                cmd.commandText = "Select max(存址号) From [test] Where 存址号 like '" & czh & "' And Id <> " & e.DataRow("id")
                idx = cmd.ExecuteScalar
                If idx = "" Then
                    idx = 10001
                Else
                    idx = idx.SubString(9) + 1
                End If
                e.DataRow("存址号") = e.DataRow("全宗号") & "-" & e.DataRow("年度") & "-" & idx
            Else
                e.DataRow("存址号") = "不存在"
            End If
        End If
    Case "存址号"
        e.DataTable.Save()
End Select

 那就让分类号修改以后不起作用。

 判断存址号的值，如果已经生成了，就不再修改了，还有就是把分类号的值还原原来的值。

 楼主，先试一下自己编码。

 楼主希望是怎样的形式呢？

 如果是锁定分类号的话，也是这样写代码……判断一下存址号的值，就可以了，不过，代码写在prepareEdit