以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于增加数据到另一个表的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=19935)
--  作者：kevin
--  发布时间：2012/5/25 12:40:00
--  关于增加数据到另一个表的问题

If e.DataCol.Name = "逻辑列名" = True Then
Dim dr As DataRow = DataTables("表B").AddNew
For Each dc As DataCol In DataTables("表B").DataCols
dr(dc.Name) = e.DataRow(dc.Name)
Next
End If

 

 

以上代码,当然"逻辑列名"=True时,自动将当前行数据增加到表B.

我的问题是:当If e.DataCol.Name = "逻辑列名" = False Then时,能够从表B找到与本表相同的数据删除.请问如何做?
--  作者：狐狸爸爸
--  发布时间：2012/5/25 14:12:00
--  

If e.DataCol.Name = "逻辑列名" AndAlso e.DataRow("逻辑列名") = True Then
     Dim dr As DataRow = DataTables("表B").Find("某列= \'" & e.Datarow("某列") & “‘”）

     if dr IsNot  Nothing Then

          dr.Delete

     End if
End If