If e.DataCol.Name = "编号" Then
Dim Filter As String = "[编号] = '" & e.NewValue & "'"
Dim t As Integer
t = DataTables("表B").Compute("Count([列1_符号])", "列1_符号 = 'A' ")
e.DataRow("列1_个数") = t
e.DataRow("产品1_项目") = DataTables("表B").Compute("Count([列1_符号])", Filter)
End If
红蓝代码如何合成一个?