以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  删除行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=180168)

--  作者：shqpldczj --  发布时间：2022/10/3 10:42:00 --  删除行  Dim ht As String = Tables("付款明细").Current("合同编号")     Tables("付款明细").Current.Delete     msgbox(ht)     Dim dr1 As DataRow     dr1 = DataTables("青水收款明细").sqlFind("[合同编号] = \'" & ht & "\'")     If dr1 IsNot Nothing         msgbox("有")     Else         msgbox("无")         dr1.Delete     End If     DataTables("青水收款明细").Save 收款明细表里提示是有符合条件的行，但是删除不了不知道是什么原因

--  作者：有点蓝 --  发布时间：2022/10/4 9:53:00 --   删除后保存才会起作用     Tables("付款明细").Current.Delete     Tables("付款明细").save