主题：[求助]网络自动编号问题

 呃，直接在foxtable里面新增表，就自动带有 _Identify 的，

 参考 http://www.foxtable.com/help/topics/1443.htm

 编号用_Identify啊。

 如果要特殊的编号，参考 http://www.foxtable.com/help/topics/1994.htm

你新增一列，把表达式列的内容，复制到数据列去不就行了？

以后就用数据列存储，参考4楼的设置。

 直接在DataRowAdded写代码

e.DataRow.Save

e.DataRow("产品ID") = "bh-" & Format(e.DataRow("_Identify"), "000000")

是的，不会重复，因为_Identify列就是不重复的。

这样才不会重复

Select e.DataCol.Name
    Case "订货日期","厂家编号"
        If e.DataRow.isnull("采购单号") Then
            If e.DataRow.IsNull("订货日期") OrElse e.DataRow.IsNull("厂家编号") Then
                e.DataRow("采购单号") = Nothing
            Else
                Dim d As Date = e.DataRow("订货日期")
                Dim bh As String = "SM-" & e.DataRow("厂家编号") & "" & Format(d,"yy") & "" '生成编号的前缀
                e.DataRow.Save
                Dim max As String
                Dim idx As Integer
                Dim flt As String
                flt = "采购单号 like '" & bh & "%' And [_Identify] <> " & e.DataRow("_Identify")
                max = e.DataTable.SQLCompute("Max(采购单号)",flt) '取得该年的相同厂家编号的最大采购单号
                If max > "" Then '如果存在最大采购单号
                    idx = CInt(max.Substring(bh.Length,2)) + 1 '获得最大采购单号的后两位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("采购单号") = bh & Format(idx,"00")
                e.DataRow.Save
            End If
        End If
End Select

对。有什么问题？

DataRowAdded事件

e.DataRow("排产日期") = Date.Now