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


  共有9656人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
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


 回到顶部