| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]合并表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=191735) |
| -- 作者：江南小镇 -- 发布时间：2024/5/6 17:52:00 -- [求助]合并表 老师好 怎样在数据源中把三个表合并到另外一个表中，字段是不一样的。
|
| -- 作者：有点蓝 -- 发布时间：2024/5/6 19:56:00 -- 参考：http://www.foxtable.com/webhelp/topics/2322.htm |
| -- 作者：江南小镇 -- 发布时间：2024/5/6 21:57:00 -- 老师，下面代码怎样优化。 Dim Cols1() As String = {"第一列","第二列","第三列"} Dim Cols2() As String = {"第一列","第二列","第三列"} For Each dr1 As DataRow In DataTables("表A").Select("") Dim dr2 As DataRow = DataTables("接收表").AddNew() For i As Integer = 0 To Cols1.Length -1 dr2(Cols2(i)) = dr1(Cols1(i)) Next Next Dim Cols3() As String = {"名称","金额","数量"} Dim Cols4() As String = {"第四列","第五列","第六列"} For Each dr3 As DataRow In DataTables("表B").Select("[金额] > 0") Dim dr4 As DataRow = DataTables("接收表").AddNew() For i As Integer = 0 To Cols3.Length -1 dr4(Cols4(i)) = dr3(Cols3(i)) Next Next
|
| -- 作者：有点蓝 -- 发布时间：2024/5/6 21:58:00 -- 优化什么？有什么问题？ |
| -- 作者：江南小镇 -- 发布时间：2024/5/6 22:03:00 -- 老师，每次打开接收表多会重新复制相同的数据。 |
| -- 作者：有点蓝 -- 发布时间：2024/5/6 22:06:00 -- 使用find查询一下接收表，如果有对应的数据就不再添加 |
| -- 作者：江南小镇 -- 发布时间：2024/5/6 22:21:00 -- 老师 ，不会搞，谢谢老师。 |
| -- 作者：有点蓝 -- 发布时间：2024/5/6 22:30:00 -- 看看这里find的用法：http://www.foxtable.com/webhelp/topics/2334.htm |
| -- 作者：江南小镇 -- 发布时间：2024/5/7 14:33:00 -- 老师，还是搞不好。 |
| -- 作者：有点蓝 -- 发布时间：2024/5/7 14:36:00 -- 写了什么代码？ |