主题：怎样根据不合格项目的内容，填写相应字段的内容？

    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(dc.Name) = "X"

                Else

                    e.DataRow(dc.Name) = "√"

                End If

            End If

        Next

if lst.Contains(“实时监控”)=false andalso e.DataRow(“是否公共场所”) = "否"

e.DataRow(“实时监控”) = "/"

endif

    End  If

End  If

        For Each dc As DataCol In e.DataTable.DataCols

            If dc.Name <> "不合格项目" andalso dc.Name <> "是否公共场所" Then

                If lst.Contains(dc.Name) Then

                    e.DataRow(dc.Name) = "X"

                Else

                    e.DataRow(dc.Name) = "√"

                End If

            End If

        Next