以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何删除当前行?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=60494)

--  作者:jiangxun
--  发布时间:2014/11/25 20:43:00
--  如何删除当前行?

Dim str_fl As String
If e.Form.controls("combovalue").text <> "2" Then
    str_fl = e.Form.controls("combovalue").text
End If
If Vars("currCtl_Label") <> "" Then
    Dim ctl_Label As object = e.Form.controls(Vars("currCtl_Label"))
    If ctl_Label IsNot Nothing Then
        e.Form.RemoveControl(ctl_Label.name)
        Dim drs As List(Of DataRow)
        drs = DataTables("流程图注释").Select("[流程名称] = \'" & str_fl & "\' And [控件名称]= \'" & ctl_Label.name & "\'").current.deleted()
        
        
    End If
End If
这样写提示current不是成员。怎么办呢

 


--  作者:有点甜
--  发布时间:2014/11/25 20:44:00
--  
Tables("流程图注释").current.delete
--  作者:jiangxun
--  发布时间:2014/11/25 20:59:00
--  

如何用代码选择行,然后删除当前行

DataTables("流程图注释").Select("[流程名称] = \'" & str_fl & "\' And [控件名称]= \'" & ctl_Label.name & "\'")

以上选择不上

直接执行

DataTables("流程图注释").datarows(0).delete()

DataTables("流程图注释").save()

 

结果删除的是第一行,不是上面select选择的行


--  作者:有点甜
--  发布时间:2014/11/25 21:04:00
--  
DataTables("流程图注释").DeleteFor("[流程名称] = \'" & str_fl & "\' And [控件名称]= \'" & ctl_Label.name & "\'")
--  作者:jiangxun
--  发布时间:2014/11/25 21:06:00
--  
图片点击可在新窗口打开查看谢谢