如下代码请教如何修改？

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

 没看懂你的意思。

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

 呃，没明白你什么意思。

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

好的，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

                                     .....