蓝总，下面代码生成的值，怎么都是1？
If e.DataCol.name = "第一列" Then
'If e.DataRow.IsNull("四和") = False And e.DataRow("锁定") = False Then '如果没有输入出生日期
'If e.DataRow("第一列") IsNot Nothing Then '如果没有输入出生日期
'Dim s As String = e.DataRow("第一列")
Dim Products As List(Of String)
Products = DataTables("表A").GetValues("第一列")
For Each Product As String In Products
Dim Total As Long
If e.DataRow("第一列") IsNot Nothing Then '如果没有输入出生日期
Total = DataTables("表A").Compute("Count(第一列)", "第一列 = '" & Product & "' ")
e.DataRow("第一列字符重复数累计") = Total
End If
Next
End If
加好友 
发短信
Post By：2023/2/9 9:39:00 [显示全部帖子]
