- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 怎样根据不合格项目的内容，填写相应字段的内容？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=170377)
-- 发布时间：2021/7/24 7:37:00
-- 怎样根据不合格项目的内容，填写相应字段的内容？
怎样根据不合格项目的内容，填写相应字段的内容？ 如不合格项目内容：使用登记,安全管理人员,安全管理制度,标志，则相应字段这填写“X”，其他字段填写“√”。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:wsm.table |
-- 发布时间：2021/7/24 9:24:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:wsm.zip |
-- 发布时间：2021/7/24 10:21:00
--
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(dc.Name) = "X"
Else
e.DataRow(dc.Name) = "√"
End
If
End
If
Next
End If
End If
如果不合格项目不包含“实时监控”且字段“是否公共场所”为“否”
字段“实时监控”应为“/ ”,怎样增加判断语句？
-- 发布时间：2021/7/24 10:35:00
--
……
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
-- 发布时间：2021/7/24 11:42:00
--
有点问题，记录内容有变化时，会把字段“是否公共场所”改为“√”，应该排除该字段。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:wsm.table |
-- 发布时间：2021/7/24 11:54:00
--
自行参考上面的代码。里面有排除的方法
-- 发布时间：2021/7/24 13:31:00
--
-- 发布时间：2021/7/24 13:37:00
--
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
-- 发布时间：2021/7/24 14:05:00
--
-- 发布时间：2021/7/24 14:19:00
--
很多方法，要学会思考