手工编码填充数据问题,请教老师 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 手工编码填充数据问题,请教老师

共有9385人关注过本帖树形打印复制链接主题：手工编码填充数据问题,请教老师

lin_hailun

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/1/22 8:43:00 [显示全部帖子]

这个提示是正常的。

对于表A.表B，DataTables("表A.表B") 实际上是不存在的，只是临时生成的一个Table

你可以这样用，比如 Tables("表A.表B").DataTable直接使用，这个也等同于DataTables("表B")

lin_hailun

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/1/22 17:17:00 [显示全部帖子]

以下是引用mamuaiqing在2013-1-22 16:46:00的发言：

这样调整执行后连同"表B"中的数据也复制过去了,没实现只复制"表A.表B"内容,在代码中想再加了个排除,排除掉"接收表"与"表A.表B"存在相同的内容,只复制"表A.表B"与"接收表"中不存在的内容,一行数据好解决,多行数据头大了,摸不清方向了,再次请教老师

呃，这样说吧，表A.表B 实际上就是 Datatables("表B").GetUniqueValues("关联列 = '" & Tables("表A").current("关联列") & "'", "xxx")

至于你说的排除接收表存在的内容。你比较一下就行了。

lin_hailun

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/1/23 9:10:00 [显示全部帖子]

以下是引用mamuaiqing在2013-1-23 3:57:00的发言：
Datatables("表B").GetUniqueValues("关联列 = '" & Tables("表A").current("关联列") & And 重复列 ='" & Tables("接收表").current("重复列") & "'", "xxx") 学生的代码是否正确，麻烦林老师核对下。后面的代码是排除了表B跟接收表中相同的重复列的内容

如果结果正确就正确吧。我还不清楚你数据表的数据是怎样的。

我还以为要在导入的时候去接收表里find一下呢。

lin_hailun

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/1/23 18:08:00 [显示全部帖子]

看看是不是这样？

Dim Vals As List(of String())
Vals = DataTables("表B").GetUniqueValues("第一列 = '" & Tables("表A").current("第一列") & "'", "产品","客户")
For Each val As String() In Vals
    If DataTables("接收表").Find("产品='" & val(0) & "' And 客户='" & val(1) & "'") Is Nothing Then
        Dim dr As DataRow = DataTables("接收表").AddNew()
        dr("产品") = Val(0)
        dr("客户") = Val(1)
    End If
Next

下一主题 >> << 上一主题

主题：手工编码填充数据问题,请教老师