- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]复制行，复制列条件行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=122381)
-- 发布时间：2018/7/24 11:34:00
-- [求助]复制行，复制列条件行
-- 发布时间：2018/7/24 11:36:00
--
代码没问题。你现在是报错还是怎样？
-- 发布时间：2018/7/24 11:40:00
--
此主题相关图片如下：qq图片20180724113710.png
-- 发布时间：2018/7/24 11:48:00
--
你想处理当前行还是所有的行？
Dim cr As Row = Tables("个人借款").current
If cr("未归还") = "未归还" Then
Dim dr As DataRow = DataTables("未归还明细表").AddNew
For Each dc As DataCol In DataTables("个人借款").DataCols
dr(dc.Name) = cr(dc.Name)
Next
End If
-----------------
For Each cr As Row In Tables("个人借款").Rows
If cr("未归还") = "未归还" Then
Dim dr As DataRow = DataTables("未归还明细表").AddNew
For Each dc As DataCol In DataTables("个人借款").DataCols
dr(dc.Name) = cr(dc.Name)
Next
End If
Next
-- 发布时间：2018/7/24 12:06:00
--
处理所有行
-- 发布时间：2018/7/24 17:13:00
--
“个人借款表”有表达式列“应付利息”，表达式Sum(Child(结息1).利息金额)
-- 发布时间：2018/7/24 17:33:00
--
代码改成
For Each cr As Row In Tables("个人借款").Rows
If cr("未归还") = "未归还" Then
Dim dr As DataRow = DataTables("未归还明细表").AddNew
For Each dc As DataCol In DataTables("个人借款").DataCols
If dc.Expression = "" Then
dr(dc.Name) = cr(dc.Name)
End If
Next
End If
Next
-- 发布时间：2018/7/24 18:16:00
--
此主题相关图片如下：qq图片20180724181025.png
-- 发布时间：2018/7/24 20:40:00
--
和数据列一样设置即可
-- 发布时间：2018/7/26 11:54:00
--
此主题相关图片如下：qq图片20180726114919.png