主题：[求助]发布后的项目使用问题

汗，你把数据库也上传上来啊。

或者直接截图说明问题，或者就用下面的代码

Select e.DataCol.Name
    Case  "cpmc"
        If e.DataRow.IsNull("cpmc") Then
            e.DataRow("xuhao") = Nothing
        Else
            Dim lb As  String = e.DataRow("cpmc")
            Dim max  As  String
            Dim idx  As  Integer
            max = e.DataTable.Compute("Max(xuhao)","cpmc = '" & lb  & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号
            If max > ""  Then  '如果存在最大编号
                idx = CInt(max.Substring(2)) + 1  '获得最大编号的后三位顺序号,并加1
            Else
                idx = 1  '否则顺序号等于1
            End  If
            e.DataRow("xuhao") = lb.substring(5,2) & Format(idx,"000000")
        End  If
    End  Select