- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 跨表同步增加删除行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179012)
-- 发布时间：2022/8/3 8:23:00
-- 跨表同步增加删除行
从A表添加行以后 选择 “下发“ 后在B表增加相同内容行 现在想要在A表 取消 “下发” 后在B表删除对应行 请老师指教
Select Case e.DataCol.name
Case "文件名称","发文单位","文件","发文单位","发文日期","文号","备注","LOG","下发","接收日期","学习时间","学习地点","贯彻人"
Dim fdr As DataRow
If e.DataRow("下发") = True Then
fdr = DataTables("贯彻学习").find("第十列=\'" & e.DataRow("_Identify") & "\'")
If fdr Is Nothing Then fdr = DataTables("贯彻学习").addnew
End If
End If
If fdr IsNot Nothing Then
\'fdr("文件类型") = e.DataRow("文件类型")
fdr("文件名称") = e.DataRow("文件名称")
fdr("发文单位") = e.DataRow("发文单位")
fdr("发文日期") = e.DataRow("发文日期")
fdr("接收日期") = e.DataRow("接收日期")
fdr("学习时间") = e.DataRow("学习时间")
fdr("学习地点") = e.DataRow("学习地点")
fdr("贯彻人") = e.DataRow("贯彻人")
\'fdr("项目分类") = e.DataRow("项目分类")
fdr("文号") = e.DataRow("文号")
fdr("文件") = e.DataRow("文件")
fdr("备注") = e.DataRow("备注")
fdr("LOG") = e.DataRow("LOG")
e.DataRow.save
fdr("第十列") = e.DataRow("_Identify")
End If
End Select
-- 发布时间：2022/8/3 8:58:00
--
……
fdr("第十列") = e.DataRow("_Identify")
End If
Case "下发"
If e.DataRow("下发") = false Then
DataTables("贯彻学习").deletefor("第十列=\'" & e.DataRow("_Identify") & "\'")
End If
End Select
-- 发布时间：2022/8/4 8:35:00
-- 跨表同步增加删除行
老师这样还是不行 A表取消 “下发” B表对应的那一行还是存在
-- 发布时间：2022/8/4 9:17:00
--
DataTables("贯彻学习").deletefor("第十列=" & e.DataRow("_Identify"))
-- 发布时间：2022/8/5 14:54:00
-- 跨表同步增加删除行
老师还是不行
-- 发布时间：2022/8/5 15:11:00
--
请上传实例说明
-- 发布时间：2022/8/5 16:56:00
-- 跨表同步增加删除行
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:跨表同步增加删除行.foxdb |
-- 发布时间：2022/8/5 17:12:00
--
Select Case e.DataCol.name
Case "文件名称","发文单位","文件","发文单位","发文日期","文号","备注","LOG","下发","接收日期","学习时间","学习地点","贯彻人"
Dim fdr As DataRow
If e.DataRow("下发") = True Then
fdr = DataTables("贯彻学习").find("第十列=\'" & e.DataRow("_Identify") & "\'")
If fdr Is Nothing Then fdr = DataTables("贯彻学习").addnew
\'ElseIf e.DataRow("文件类型") = "标准化"
\'fdr = DataTables("标准化").find("第十列=\'" & e.DataRow("_Identify") & "\'")
\'If fdr Is Nothing Then fdr = DataTables("标准化").addnew
Else
DataTables("贯彻学习").deletefor("第十列=\'" & e.DataRow("_Identify") & "\'")
End If
If fdr IsNot Nothing Then
\'fdr("文件类型") = e.DataRow("文件类型")
fdr("文件名称") = e.DataRow("文件名称")
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:跨表同步增加删除行.zip |
-- 发布时间：2022/8/5 17:32:00
-- 跨表同步增加删除行
谢谢老师 可以了 我现在软件提示到期 你发的示例我 打不开 需要升级版本 如果我下载新版本安装以后 我的软件还能正常使用吗？
-- 发布时间：2022/8/5 17:38:00
--
到期是用不了新版本的