主题：求帮助

如下代码请教如何修改？

 

Dim bl As Integer = Vars("_NewTaoci")
Dim bl1 As Integer = Vars("_NewYamin")
Dim t As Table = Tables("销售填写表")
   If t.("cpmc") = "ABC" Then
      t.("xuhao") = bl + 1
   Else
      t.("xuhao") = bl1 + 1
   End If

 

 

Vars("_NewTaoci")-----是全局变量
Vars("_NewYamin") -----是全局变量

有如下报错

 

 

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

Vars("_NewTaoci")-----是全局变量
Vars("_NewYamin") -----是全局变量

 

 

以上全局变量是想 自动生成序号的    如  “100000”  和  “200000”

如果是ABC   就值是   100001

不是   值就是       200001

好的，谢谢老师，就是这样，
但是，自动生成的序号如何写代码？

好的，OK了

 

Dim t As Table = Tables("销售填写表")
If t.Current IsNot Nothing Then
    If t.Current("cpmc") = "压敏电阻器" Then
         Vars("_NewYamin") = Vars("_NewYamin") + 1
         t.Current("xuhao") = Vars("_NewYamin")
    Else
         Vars("_NewTaoci") += 1
         t.Current("xuhao") = Vars("_NewTaoci") 
    End If
End If

DataTables("销售填写表").Save()

 

 

以上代码  每当退出项目，再次进入项目后，全局变量值又会从初始值开始+1；

如何类似像 序号 那样不停的加1累加下去，

 

 

希望达到的效果大概如下：

 

假设全局变量初始值为100

第1次进入项目    新增第1条记录  全局变量值为101

                      新增第2条记录  全局变量为102

                        新增第3条记录  全局变量为103

                                    ...

                        新增第N条记录  全局变量为100+N

 

 

------------------------------------------------------------

第2次进入项目    新增第1条记录  全局变量值为100+N+1

                       新增第2条记录  全局变量为100+N+2

                        新增第3条记录  全局变量为100+N+3

                                     .....

 

 

 

 

 

你好，参考了如下代码之后，运用到项目中，总是报错，并且程序动不了了，

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

 

 

 

 

 

 

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

老师，您好，还是有如上的报错。

 

老师，还是有如上报错

老师，测试OK ，。感谢！