跨表同步增加删除行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

从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

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

……

fdr("第十列") = e.DataRow("_Identify")

End If

Case "下发"

If e.DataRow("下发") = false Then

DataTables("贯彻学习").deletefor("第十列='" & e.DataRow("_Identify") & "'")

End If

End Select

老师这样还是不行 A表取消 “下发” B表对应的那一行还是存在

DataTables("贯彻学习").deletefor("第十列=" & e.DataRow("_Identify"))

请上传实例说明

下载信息 [文件大小：下载次数： ]
点击浏览该文件:跨表同步增加删除行.foxdb

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

谢谢老师可以了我现在软件提示到期你发的示例我打不开需要升级版本如果我下载新版本安装以后我的软件还能正常使用吗？

到期是用不了新版本的

主题：跨表同步增加删除行