- 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=33957)
-- 发布时间：2013/5/27 21:44:00
-- [求助]
每日统计表中，怎么做到在审核那里打对勾，下面关联表里的 回款审核 中自动填入 已审核 ？把对勾去掉的话，回款审核 里也自己删除？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:复件 复件 实验 4.14宇航空白.foxdb |
此主题相关图片如下：m}d}e_wgnj7o@bk5zn207h.jpg
-- 发布时间：2013/5/27 23:54:00
--
DataColChanged
If e.DataCol.Name = "审批" Then \'如果是审批列的内容变动
If e.NewValue = True Then \'而且变动后的值是True(已勾选)
Dim drs As List(Of DataRow) = e.DataRow.GetChildRows("安阳输入")
For Each dr As DataRow In drs
dr("回款审核")="已审核"
Next
Else
Dim drs As List(Of DataRow) = e.DataRow.GetChildRows("安阳输入")
For Each dr As DataRow In drs
dr("回款审核")=""
Next
End If
End If
-- 发布时间：2013/5/27 23:56:00
--
DataColChanged
If e.DataCol.Name = "审批" Then \'如果是审批列的内容变动
If e.NewValue = True Then \'而且变动后的值是True(已勾选)
Dim drs As List(Of DataRow) = e.DataRow.GetChildRows("安阳输入")
For Each dr As DataRow In drs
dr("回款审核")="已审核"
Next
Else
Dim drs As List(Of DataRow) = e.DataRow.GetChildRows("安阳输入")
For Each dr As DataRow In drs
dr("回款审核")=""
Next
End If
End If