以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  不同表里查找相同的行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=31727)
--  作者：hbaijia
--  发布时间：2013/4/19 15:08:00
--  不同表里查找相同的行

1、我想同时删除其他表里具有相同编号的行，下面代码有什么问题，我在命令窗口执行，r返回值不对

Dim bh As String = Tables("登记表").Current("资产编号")
Tables("登记表").Current.Delete
With Tables("盘点表")
    Output.Show(bh)
    Dim r As Integer
    r = Tables("固定资产盘点表").FindRow("固定资产编号 like \'bh \'")
     If r >= 0 Then \'如果找到的话
    Output.Show(r)
    .Position = r \'定位到找到的行.
  Tables("固定资产盘点表").Current.Delete
    End If
End With
--  作者：Bin
--  发布时间：2013/4/19 15:20:00
--  
用FIND吧http://www.foxtable.com/help/topics/0396.htm
--  作者：狐狸爸爸
--  发布时间：2013/4/19 15:20:00
--  

比较正常的代码：

Dim bh As String = Tables("登记表").Current("资产编号")
Tables("登记表").Current.Delete
DataTables("固定资产盘点表").Delete("固定资产编号 = \'" & bh & "\'")

你的方法也可以，但是关键的错误在于：

r = Tables("固定资产盘点表").FindRow("固定资产编号 like \'bh \'")

表达式不是这样合成的，建议看看：

http://www.foxtable.com/help/topics/1284.htm

 

 
--  作者：hbaijia
--  发布时间：2013/4/19 15:31:00
--  
DataTables("固定资产盘点表").Delete("固定资产编号 = \'" & bh & "\'")
编译都通不过
--  作者：Bin
--  发布时间：2013/4/19 15:33:00
--  
DataTables("XX").DeleteFor("固定资产编号 = \'" & bh & "\'")
--  作者：hbaijia
--  发布时间：2013/4/19 16:11:00
--  
如何才能找到狐表本身菜单的功能代码
--  作者：XYT
--  发布时间：2013/4/19 16:47:00
--  

系统命令大全

http://www.foxtable.com/help/topics/1080.htm