Foxtable(狐表)用户栏目专家坐堂 → 关于导入


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

主题:关于导入

帅哥哟,离线,有人找我吗?
mark96
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:33 积分:327 威望:0 精华:0 注册:2016/7/27 18:17:00
关于导入  发帖心情 Post By:2016/7/31 9:26:00 [只看该作者]

各位大神,我现在有一个记录表“A”,“A”中第一列记录了其他表的表名,第二列记录了表名中的“B”列名,第三列记录了要输入的“C”数据。然后,怎么把“C”数值填入到“A”表“B”列填充对应的。跪求代码。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/7/31 9:35:00 [只看该作者]

 参考

 

下载信息  [文件大小:340.0 KB  下载次数:25]
图片点击可在新窗口打开查看点击浏览该文件:操作日志.table


 回到顶部
帅哥哟,离线,有人找我吗?
mark96
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:33 积分:327 威望:0 精华:0 注册:2016/7/27 18:17:00
  发帖心情 Post By:2016/7/31 15:17:00 [只看该作者]

我的代码如下,请问为什么实现不了啊?[quote]Dim tb1 As Table = Tables("表A")
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:01.table



 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/7/31 18:41:00 [只看该作者]

Select Case e.DataCol.Name
    Case "第一列","第二列","第三列"
        If e.DataRow.IsNull("第一列") = False AndAlso e.DataRow.IsNull("第二列") = False Then
            Dim bm As String = e.DataRow("第一列")
            Dim lm As String = e.DataRow("第二列")
            DataTables(bm).ReplaceFor(lm, e.DataRow("第三列"))
        End If
End Select

 回到顶部