- 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=14872)
-- 发布时间：2011/12/5 11:20:00
-- [求助]这段代码什么意思？
请教达人：
Dim dr1 As DataRow = e.DataRow
Dim dr2 As DataRow = DataTables("还款明细表").AddNew
For Each dc As DataCol In DataTables("还款明细表").DataCols
If DataTables("基本表").DataCols.Contains(dc.name) Then
dr2(dc.name) = dr1(dc.name)
End If
Next
这个是不是基本表中删除的一行在还款明细表中显示
-- 发布时间：2011/12/5 11:50:00
--
这是复制数据的代码，如果设置在删除行的事件中，就是将要删除的行的数据复制到"还款明细表"表中。
-- 发布时间：2011/12/5 14:11:00
--
怎样能将要删除的基本表中行的数据复制到"还款明细表"表中
[此贴子已经被作者于2011-12-5 14:11:52编辑过]
-- 发布时间：2011/12/5 14:14:00
--
我这样写了，在基本表中删除了，还款明细表没有显示
-- 发布时间：2011/12/5 14:15:00
--
还款明细表需要设置什么吗
-- 发布时间：2011/12/5 14:39:00
--
你把下面的代码，设置在基本表的BeforeDeleteDataRow事件中：
Dim dr1 As DataRow = e.DataRow
Dim dr2 As DataRow = DataTables("还款明细表").AddNew
For Each dc As DataCol In DataTables("还款明细表").DataCols
If DataTables("基本表").DataCols.Contains(dc.name) Then
dr2(dc.name) = dr1(dc.name)
End If
Next
建议先按顺序看一下帮助，从使用指南开始看。
-- 发布时间：2011/12/5 14:44:00
--
哈哈，语言方面不懂，现在急需建一个表。谢谢狐爸了
[此贴子已经被作者于2011-12-5 14:50:25编辑过]
-- 发布时间：2011/12/5 14:53:00
--
还款明细表的各个列需要和基本表一样吗
-- 发布时间：2011/12/5 15:01:00
--
请狐爸给我弄下
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目３.table |
[此贴子已经被作者于2011-12-5 15:04:29编辑过]
-- 发布时间：2011/12/5 15:12:00
--
当然，最好一直，如果不一致
Dim dr1 As DataRow = e.DataRow
Dim dr2 As DataRow = DataTables("还款明细表").AddNew
Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
[此贴子已经被作者于2011-12-5 15:11:47编辑过]