- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助，查找并删除符合条件的行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=150632)
-- 发布时间：2020/6/3 14:10:00
-- 求助，查找并删除符合条件的行
想通过表A里面的字段删除表B符合条件的行，是在帮助文件的哪个里面，谢谢
[此贴子已经被作者于2020/6/3 14:19:56编辑过]
-- 发布时间：2020/6/3 14:23:00
--
截图说明一下
-- 发布时间：2020/6/3 14:29:00
--
此主题相关图片如下：2.png
想通过图1的表A三个字段内容，查找图2中表B符合的行并删除，并在表A中的逻辑列设为True
此主题相关图片如下：1.png
-- 发布时间：2020/6/3 14:55:00
--
dim r as row = tables("A").current
datatables("B").deletefor("第一列=‘" & r("第一列") & "’ and 第二列=‘" & r("第二列") & "’")
-- 发布时间：2020/6/3 17:05:00
--
这个在帮助文件哪里？
-- 发布时间：2020/6/3 17:11:00
--
到帮助里搜索，需要学习什么就搜什么。比如想要了解current的用法，就搜索“current”；想要学习deletefor的用法，就搜索“deletefor”
-- 发布时间：2020/6/3 17:23:00
--
好的，蓝大大，我再努力去搜索
-- 发布时间：2020/6/5 1:06:00
--
For Each dr As DataRow In DataTables("QTXPD").datarows \'循环表的每一行
If dr.IsNull("sfsc") Then
Dim fdr As DataRow = DataTables("GB").find("spdm=\'" & dr("vStyle") & "\' and GG1DM=\'" & dr("vColor") & "\' and GG2DM=\'" & dr("vSize") & "")
If fdr > -1 Then \'如果挂板表找到对应的行
fdr.Delete \'删除该行
fdr("sfsc") = True
Return
End If
End If
Next
这里该怎么写呢
此主题相关图片如下：817.png
此主题相关图片如下：817.png[此贴子已经被作者于2020/6/5 2:42:14编辑过]
-- 发布时间：2020/6/5 1:07:00
--
For Each dr As DataRow In DataTables("QTXPD").datarows \'循环表的每一行
If dr.IsNull("sfsc") Then
Dim fdr As DataRow = DataTables("GB").DeleteFor("spdm=\'" & dr("vStyle") & "\' and GG1DM=\'" & dr("vColor") & "\' and GG2DM=\'" & dr("vSize") & "")
fdr("sfsc") = True
Return
End If
Next
这里修改成这种又提示不产生值
此主题相关图片如下：30.png
此主题相关图片如下：30.png[此贴子已经被作者于2020/6/5 2:41:48编辑过]
-- 发布时间：2020/6/5 9:01:00
--
这个代码想要实现什么功能？