以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 条件删除单元格内容  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=57649)
--  作者：wumingrong1
--  发布时间：2014/9/28 15:47:00
--  [求助] 条件删除单元格内容
如果我的按钮是在  “机房板件端口表” 中；想实现删除 “机房板盘端子台帐表” 中符号 “机房板件端口表” 中所点击的当前行 条件的“业务名称”单元格内容 。 

如下的命令该怎么改？（这样写的话好像是“机房板盘端子台帐表”为当前行为符号条件的行才能给被删除）

For Each r As Row In Tables("机房板件端口表").Rows
    Dim dr As DataRow = DataTables("机房板盘端子台帐表").Find("机柜编号 = \'" & r("机柜编号1") & "\' and  板盘端子名称 = \'" & r("板盘端子名称1") & "\' ")
    If dr IsNot Nothing Then
        
        Tables("机房板盘端子台帐表").Current("业务名称") = Nothing      
    End If
Next
--  作者：Bin
--  发布时间：2014/9/28 15:54:00
--  
看不懂你的描述
--  作者：有点甜
--  发布时间：2014/9/28 15:57:00
--  

Dim r As Row = Tables("机房板件端口表").current
Dim dr As DataRow = DataTables("机房板盘端子台帐表").Find("机柜编号 = \'" & r("机柜编号1") & "\' and  板盘端子名称 = \'" & r("板盘端子名称1") & "\' ")
If dr IsNot Nothing Then
    dr("业务名称") = Nothing
End If

 
--  作者：wumingrong1
--  发布时间：2014/9/28 15:59:00
--  
查找 “机房板盘端子台帐表” 中与 当前表“机房板件端口表”当前行 的 ‘机柜编号’和‘板盘端子名称’相同的行；如果有符号条件的行、那么，将“机房板盘端子台帐表”中符号条件行的“业务名称”单元格内容删除掉


For Each r As Row In Tables("机房板件端口表").Rows
    Dim dr As DataRow = DataTables("机房板盘端子台帐表").Find("机柜编号 = \'" & r("机柜编号") & "\' and  板盘端子名称 = \'" & r("板盘端子名称") & "\' ")
    If dr IsNot Nothing Then
        
        Tables("机房板盘端子台帐表").Current("业务名称") = Nothing      
    End If
Next
--  作者：有点甜
--  发布时间：2014/9/28 16:01:00
--  

看3楼