If e.DataCol.Name = "不合格项目" Then
If e.DataRow.IsNull("不合格项目") Then
For Each dc As DataCol In e.DataTable.DataCols
If dc.Name <> "不合格项目" Then
e.DataRow(dc.Name) = Nothing
End If
Next
Else
Dim lst As new List(of String)
lst.AddRange(e.DataRow("不合格项目").split(","))
For Each dc As DataCol In e.DataTable.DataCols
If dc.Name <> "不合格项目" Then
If lst.Contains(dc.Name) Then
e.DataRow("使用登记") = "X"
e.DataRow("安全管理人员") = "X"
e.DataRow("安全管理制度") = "X"
e.DataRow("标志") = "X"
e.DataRow("紧急报警") = "X"
e.DataRow("实时监控") = "X"
e.DataRow("层门") = "X"
Else
e.DataRow("使用登记") = "√"
e.DataRow("安全管理人员") = "√"
e.DataRow("安全管理制度") = "√"
e.DataRow("标志") = "√"
e.DataRow("紧急报警") = "√"
e.DataRow("实时监控") = "√"
e.DataRow("层门") = "√"
End If
End If
Next
If e.DataRow("是否公共场所") = "否" Then
e.DataRow("实时监控") = "/"
End If
End If
End If
已经可以排除其他字段，但是“不合格项目”字段非空时，相应字段不会打“X”,相应字段全打“√”，不知公式哪里错？
[此贴子已经被作者于2021/7/24 13:34:38编辑过]
加好友 
发短信
Post By：2021/7/24 7:37:00 [显示全部帖子]
