- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 在-表中如删除一行。删除的这一行在另一表中要显实出来如何设制代码？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28237)
-- 发布时间：2013/1/23 10:32:00
-- 在-表中如删除一行。删除的这一行在另一表中要显实出来如何设制代码？
在-表中如删除一行。删除的这一行在另一表中要显实出来如何设制代码
-- 发布时间：2013/1/23 10:38:00
--
With Tables("表A")
For i As Integer = .BottomRow To .TopRow Step -1
Dim r1 As Row = .Rows(i)
Dim r2 As Row = Tables("表B").AddNew
For Each c As Col In .Cols
r2(c.name) = r1(c.name)
Next
r1.Delete()
Next
End With
-- 发布时间：2013/1/23 10:39:00
--
很简单。几句代码。代码写在 表属性->事件->datarowdeleting
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |