- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 表间数据传递问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58355)
-- 发布时间：2014/10/15 17:01:00
-- 表间数据传递问题
我想在表B删除行时将表B[分段明细]列最后一行数据传递到表A的[库存分段]列，谁帮我看一下表B删除行的代码。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2014/10/15 17:10:00
--
没太看懂,去最后一行,不应该是
dr("库存分段") = drs(drs.count-1)("明细分段")
你遍历它干嘛?
-- 发布时间：2014/10/15 17:13:00
--
DataRowDeleting事件，加入如下代码，删除原本的代码
Dim dr As DataRow =e.DataRow.GetParentRow("表A")
If dr IsNot Nothing Then
Dim fdr As DataRow = e.DataTable.Find("第二列 = \'" & e.DataRow("第二列") & "\' and 明细分段 is not null and _Identify <> " & e.DataRow("_Identify"), "_sortkey desc")
If fdr IsNot Nothing Then
dr("库存分段") = fdr("明细分段")
End If
End If
-- 发布时间：2014/10/15 17:38:00
--
谢了