- 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=113887)
-- 发布时间：2018/1/24 16:56:00
-- 非关联表数据不能同步（新人）
首先已经照搬了“非关联表之间的数据同步”,但是不知道哪里出现问题了，数据无法同步，同步过去显示“0”，请教
[此贴子已经被作者于2018/1/31 13:54:02编辑过]
-- 发布时间：2018/1/24 17:07:00
--
表A、B、C DataRowAdded事件
e.DataRow.Save
表A、B、C DataColChanged事件
Select Case e.DataCol.name
Case "第一列", "第二列", "第三列"
Dim dr As DataRow = DataTables("汇总").Find("编号 = \'" & e.DataTable.name & "_" & e.DataRow("_Identify") & "\'")
If dr Is Nothing Then
dr = DataTables("汇总").AddNew
dr("编号") = e.DataTable.name & "_" & e.DataRow("_identify")
End If
dr("第一列") = e.DataRow("第一列")
dr("第二列") = e.DataRow("第二列")
dr("第三列") = e.DataRow("第三列")
End Select
-- 发布时间：2018/1/25 9:12:00
--
您好：
感谢您很快的回复
按照您的语句写出来的变成
[此贴子已经被作者于2018/1/25 10:02:05编辑过]
-- 发布时间：2018/1/25 9:15:00
--
代码肯定没问题的。
贴出你自己写的代码。
-- 发布时间：2018/1/25 9:32:00
--
请问您的编号指的我第一个问题的哪个名称啊？
Select Case e.DataCol.name
Case "交易日期","单位名称","银行","现金","微信","支付宝"
Dim dr As DataRow = DataTables("汇总结算").Find("单位名称= \'" & e.DataTable.name & "_" & e.DataRow("_Identify") & "\'")
If dr Is Nothing Then
dr = DataTables("汇总结算").AddNew
dr("单位名称") = e.DataTable.name & "_" & e.DataRow("_identify")
End If
dr("交易日期") = e.DataRow("交易日期")
dr("单位名称") = e.DataRow("单位名称")
dr("现金") = e.DataRow("充值")
dr("银行") = e.DataRow("银行")
dr("微信") = e.DataRow("微信")
dr("支付宝") = e.DataRow("支付宝")
End Select
-- 发布时间：2018/1/25 9:50:00
--
这个代码删除
dr("单位名称") = e.DataRow("单位名称")
或者你添加一列【编号】列。
-- 发布时间：2018/1/25 10:01:00
--
非常感谢 已经可以了 ……
-- 发布时间：2018/1/25 13:28:00
--
您好 我再请假2个问题
1、我从excel导入的财务表格在foxtable里面显示出来没有千分位符，怎么设置千分位隔和2位小数
2、想实现期初=期末
期末=A+B+C-D-E（在一个表格中）
-- 发布时间：2018/1/25 14:52:00
--
1、参考
http://www.foxtable.com/webhelp/scr/0050.htm
2、写表达式？ isnull(A,0) + isnull(B,0)
-- 发布时间：2018/1/25 16:26:00
--
您好
还是要麻烦你 上午本来非关联表之间的增删已经好了
突然又显示不对了
[此贴子已经被作者于2018/3/5 15:54:26编辑过]