主题：求帮助

如下代码请教如何修改？

 

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") -----是全局变量

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

有如下报错

 

 

此主题相关图片如下：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

                                     .....