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

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

 

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

 

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

老师，这样写刚刚试了试可以的。请问这样编号上限就是六位是吧

 

是的，相同的 lb.substring(5,2) 是六位

非常感谢老师 

老师，在表的beforeload 事件写了如下代码：

 

Dim Filter As String
Filter = "jiean = False "
DataTables("圆片陶瓷电容_独石电容料号表").LoadFilter = Filter

 

只能在某条命令执行加载表的操作后才会只加载jiean列为true的

我想在打开项目的时候就执行这样的操作请问应该写在哪儿

BeforeLoad事件

 

e.LoadFilter = "jiean = False "

 

AfterOpenProject事件

 

Dim Filter As String
Filter = "jiean = False "
DataTables("圆片陶瓷电容_独石电容料号表").LoadFilter = Filter

哦 好的谢谢老师

此主题相关图片如下：1.png

老师  beforeload时间有如下报错呢

e.DataTable.LoadFilter = "jiean = False "

打开项目后jiean为true的还在的呢