- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]同1项目编号，录入1事项，同步录入2个事项结果自动增加文字后缀 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=139783)
-- 发布时间：2019/8/21 15:50:00
-- [求助]同1项目编号，录入1事项，同步录入2个事项结果自动增加文字后缀
同1项目编号，录入1事项，同步录入2个事项结果自动增加文字后缀 _完成 _逾期
同1项目编号，删除1事项，同步删除2个事项结果
求助
此主题相关图片如下：图示.jpg
[此贴子已经被作者于2019/8/21 15:50:07编辑过]
-- 发布时间：2019/8/21 15:55:00
--
datacolchanged事件
If e.DataCol.name = "事项" Then
If e.DataRow.isnull("事项") = False
e.DataRow("事项结果") = e.DataRow("事项") & "_完成"
systemready = False
Dim dr As DataRow = e.DataTable.addnew
dr("事项") = e.DataRow("事项")
dr("事项结果") = e.DataRow("事项") & "_逾期"
systemready = True
End If
End If
-- 发布时间：2019/8/21 16:38:00
-- 回复：（有点蓝）datacolchanged事件If e.DataCol.nam...
删除事项时，该项目编号的事项结果也同时删除，怎么实现呢？
-- 发布时间：2019/8/21 16:44:00
--
If e.DataCol.name = "事项" Then
If e.DataRow.isnull("事项")
e.DataRow("事项结果") = nothing
else
e.DataRow("事项结果") = e.DataRow("事项") & "_完成"
systemready = False
Dim dr As DataRow = e.DataTable.addnew
dr("事项") = e.DataRow("事项")
dr("事项结果") = e.DataRow("事项") & "_逾期"
systemready = True
End If
End If