[求助]批量导入自动扩表获取数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]批量导入自动扩表获取数据

共有3574人关注过本帖树形打印复制链接主题：[求助]批量导入自动扩表获取数据

有点蓝

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

加好友

发短信

等级：超级版主帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/9/9 11:53:00 [显示全部帖子]

这个代码在什么事件里的？

有点蓝

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

加好友

发短信

等级：超级版主帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/9/10 10:22:00 [显示全部帖子]

先看看帮助：http://www.foxtable.com/webhelp/topics/0625.htm

http://www.foxtable.com/webhelp/topics/1522.htm

每个事件都有其使用场景和限制，不是乱用的。

另外如果请尽量把代码文字发上来，而不是截图，这样没有办法改

有点蓝

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

加好友

发短信

等级：超级版主帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/9/11 9:31:00 [显示全部帖子]

datacolchanged事件应该这样用

Select Case e.DataCol.Name
    Case "预算编号"
Dim dr As DataRow
        dr = DataTables("基础预算表").Find("[预算编号] = '" & e.datarow("预算编号") & "'")
        If dr IsNot Nothing Then
            e.datarow("预算项目名称") = dr("项目名称")
  e.datarow("预算金额") = dr("预算金额")
  e.datarow("一级科目") = dr("一级科目")
  e.datarow("二级科目") = dr("二级科目")
  e.datarow("三级科目") = dr("三级科目")
  e.datarow("四级科目") = dr("四级科目")
  e.datarow("五级科目") = dr("五级科目")
        End If
End Select

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

主题：[求助]批量导入自动扩表获取数据