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

老师  我们发布的项目使用时（之前使用两天没有这样的情况）被判定有木马 然后就打不开该项目  请问这是什么情况

你去杀毒软件那里，添加信任，把隔离的文件还原

已OK谢谢老师，能说下为什么会被查杀吗

还有一个新的问题：

Select e.DataCol.Name
     Case  "cpmc"
          If e.DataRow.IsNull("cpmc") Then
             e.DataRow("xuhao") = Nothing
         Else
             Dim lb As  String = e.DataRow("cpmc")
             If e.DataRow("xuhao").StartsWith(lb) = False  '如果单据编号前缀不符
                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(lb.Length)) + 1  '获得最大编号的后三位顺序号,并加1
                 Else
                     idx = 1  '否则顺序号等于1
                 End  If
                 e.DataRow("xuhao") = lb.Substring(5,2) & Format(idx,"000000")
         End  If
      End  If
 End  Select

如上代码是希望做到自动编号的，开始用的时候能用的，编到10个以后自动编号编出来的是第一个的序号，请问怎么修改

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(lb.Length)) + 1  '获得最大编号的后三位顺序号,并加1
            Else
                idx = 1  '否则顺序号等于1
            End  If
            e.DataRow("xuhao") = lb & Format(idx,"000000")
        End  If
    End  Select

我们取cpmc列的前两位区分编号类别，后面六位是序数。这段代码之前是参考帮助里的自动编号生成方法，有请您帮忙修改过。

 如果不行，请做例子说明问题

好的

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

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

如上附件  其中该表是外部表