- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 再问“非关联表之间的数据同步”遇到的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103310)
-- 发布时间：2017/7/5 16:18:00
-- 再问“非关联表之间的数据同步”遇到的问题
老师，在“开票指令”表中的省份和单位名称一样情况下，“销售统计表”中相同的单位名称老是写不过来，请问需要怎么修改？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.table |
-- 发布时间：2017/7/5 16:27:00
--
你要实现什么？根据什么统计？
-- 发布时间：2017/7/5 16:30:00
--
Select Case e.DataCol.name
Case "省份"
Dim dr As DataRow
If e.OldValue = Nothing Then
dr = DataTables("销售统计表").Find("省份 = \'" & e.NewValue & "\'")
Else
dr = DataTables("销售统计表").Find("省份 = \'" & e.OldValue & "\'")
End If
If dr Is Nothing Then
dr = DataTables("销售统计表").AddNew()
dr("省份") = e.DataRow("省份")
dr("单位名称") = e.DataRow("单位名称")
dr("日期") = e.DataRow("日期")
Else
dr("省份") = e.DataRow("省份")
End If
Case "单位名称","日期"
Dim dr As DataRow = DataTables("销售统计表").Find("省份= \'" & e.DataRow("省份") & "\'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
End Select
-- 发布时间：2017/7/5 16:52:00
--
我要实现功能是在“开票指令”里面填写完内容后，销售统计表自动填入与“开票指令”里面相同的内容。然后我再在销售统计表中统计。
我试运行了老师的代码，Select Case e.DataCol.name报错.“e”是private，在此上下文中不可访问
-- 发布时间：2017/7/5 16:58:00
--
两个表的内容一模一样？那可以直接用填充啊
http://www.foxtable.com/webhelp/scr/0680.htm
http://www.foxtable.com/webhelp/scr/1533.htm
-- 发布时间：2017/7/5 17:06:00
--
两个表中的内容不完全相同，只有部分字段是一样的
-- 发布时间：2017/7/5 17:08:00
--
以下是引用weipeng6999在2017/7/5 17:06:00的发言：
两个表中的内容不完全相同，只有部分字段是一样的
两个表中的内容不完全相同，只有部分字段是一样的
如果前面几列都一样，为什么要分两个表？
两个表的数据行数一样？a表有几行b表就有几行？看5楼的方法。
-- 发布时间：2017/7/7 10:28:00
--
不能用填充吧？因为我有重复值。不同部门使用同一张表不同字段的话，我看帮助说明是要重启项目才可以。所以我还是想用“非关联表之间的数据同步”，盼帮忙解决相同内容不能写入问题。
-- 发布时间：2017/7/7 10:44:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目2.table |
-- 发布时间：2017/7/7 11:31:00
--
谢谢甜老师，又见识了种思路