主题：[求助]自动生成顺序号？

If e.DataCol.name = "客户代号" Then

 Dim idx As String

            Dim max As String

            max = DataTables("送货明细表").Compute("max(顺序号)","客户代号 = '" & e.DataRow("客户代号") & "'and 送货日期 = '" & e.DataRow("送货日期") & "'and Identify <> e.datarow(_Identify)")

            If max >"" Then

                idx = cint(max.SubString(1,1)) + 1

            Else

                idx = 1

            End If

            e.DataRow("顺序号") = Format(idx,"000")

End If