标题：求行判定代码如何写(已解决)
data表中有两数值列,AA和BB两列，AA列的数据是根据BB列的数据来判定处理的，
易表中的原公式：EvalFor("data","AA","if(Row=FirstRow,444, If(Cell(Row,""BB"") <> Cell(Row+1,""BB""),444,If(Cell(Row,""BB"") <> Cell(Row-1,""BB""),444,[AA])))")
data表
AA BB AA列判定后显示值
1 2 444
2 2 2
3 2 444
4 3 444
5 3 5
6 3 444
7 4 444
8 4 8
9 4 444
10 5 444
11 5 11
12 5 12
13 5 444
14 6 444
15 6 15
16 6 444
如果BB列是第一行，则AA列值更新为444；
如果BB列当前行的值不等于上一行的值，则AA列当前行值更新为444；
如果BB列当前行的值不等于下一行的值，则AA列当前行值更新为444；
否则保值AA列值不变。
呵呵，你直接传一个表，输入数据多好。
否则要帮你，还得花时间建表输数据，麻烦。
这个文件和一楼没有关系啊.
其实只需做一个一楼这样的表,输入一楼的数据和期望的结果即可.
此外,你给的条件:
如果BB列当前行的值不等于上一行的值，则AA列当前行值更新为444；
如果BB列当前行的值不等于下一行的值，则AA列当前行值更新为444；
何一楼给的判断结果并不符合.
还有个问题想请教，我在窗口2中设置了一个定时器，想达到的效是：
1、自动定时读取指定文件夹下的所有文件，想当于侦听指定文件夹内是否有增加新的文件；
2、然后循环处理该文件夹下的文件，不停的更新，不停的处理数据文件，处理过后将数据保存到后台(现时代码还未写入)。
其实是一样的，此上传文件中BB列就是一楼的AA列，BC列就是一楼的BB列而已，一楼的数据是我随便做的一个举例说明
上传的文件中是还未处理过的数据，
还有个问题想请教，我在窗口2中设置了一个定时器，想达到的效是：
1、自动定时读取指定文件夹下的所有文件，想当于侦听指定文件夹内是否有增加新的文件；
2、然后循环处理该文件夹下的文件，不停的更新，不停的处理数据文件，处理过后将数据保存到后台(现时代码还未写入)。
基本思路，用一个静态变量，保存指定目录下的所有文件。
下次运行的时候，逐个文件判断是否是新增加的：
Static lst1 As List(Of String)
Dim lst2 As List(of String) = FileSys.GetFiles("C:\Data")
If lst1 IsNot Nothing Then
For each file As String In Lst2
if lst1.Contains(file) = False
messagebox.show(File & "是新增加的")
End If
End If
lst1 = lst2
注意定时器的时间不能太短，否则严重影响性能。
GetFiles
返回一个字符集合，该集合包括指定目录下的所有文件名。
语法：
GetFiles(directory)
directory: 指定的目录，获得该目录下所有的文件名。
例如列出C盘根目录下所有的文件名：
For
Each File As String In FileSys.GetFiles("C:\")Output.Show(File)
Next
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test.table |
有帮助的吗
做一个按钮：
With Tables("data")
.Rows(0)("AA") = 444
.Rows(.Rows.Count - 1)("AA") = 444
For i As integer = 1 to .rows.Count - 2
If .Rows(i)("BB") <> .Rows(i-1)("BB") Then
.Rows(i)("AA") = 444
ElseIf .Rows(i)("BB") <> .Rows(i+1)("BB") Then
.Rows(i)("AA") = 444
End If
Next
End With