点击按钮导入数据到当前明细表出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 点击按钮导入数据到当前明细表出错

共有7191人关注过本帖树形打印复制链接主题：点击按钮导入数据到当前明细表出错

魔鬼之神

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

加好友

发短信

等级：幼狐帖子：166 积分：1527 威望：0 精华：0 注册：2013/1/26 14:43:00

点击按钮导入数据到当前明细表出错 发帖心情

Post By：2013/3/8 10:21:00 [只看该作者]

按钮的点击事件代码：

Dim f As New Filler
f.SourceTable = DataTables("SPDA") '指定数据来源
f.SourceCols = "SPBM,SPMC" '指定数据来源列
f.DataTable = DataTables("DHD.DHD_SPMX") '指定数据接收表
f.DataCols = "SPBM,SPMC" '指定数据接收列
f.Fill() '填充数据

点击提示出错

此主题相关图片如下：qq截图20130308101943.png

此主题相关图片如下：qq截图20130308101952.png

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/3/8 10:27:00 [只看该作者]

Dim f As New Filler
f.SourceTable = DataTables("SPDA") '指定数据来源
f.SourceCols = "SPBM,SPMC" '指定数据来源列
f.DataTable = DataTables("DHD_SPMX") '指定数据接收表
f.DataCols = "SPBM,SPMC" '指定数据接收列

f.Filter = "关联列 = '" & Tables("DHD").Current("关联列") & “‘”
f.Fill() '填充数据

魔鬼之神

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

加好友

发短信

等级：幼狐帖子：166 积分：1527 威望：0 精华：0 注册：2013/1/26 14:43:00

Post By：2013/3/8 10:34:00 [只看该作者]

好。我试下。谢谢。

魔鬼之神

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

加好友

发短信

等级：幼狐帖子：166 积分：1527 威望：0 精华：0 注册：2013/1/26 14:43:00

回复：（狐狸爸爸）Dim f As New Fillerf.SourceTable... 发帖心情

Post By：2013/3/8 10:39:00 [只看该作者]

狐狸爸爸：第一个关联列是指DHD_SPMX的关联列吗？我写上去后，提示不存在这个关联列。

魔鬼之神

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

加好友

发短信

等级：幼狐帖子：166 积分：1527 威望：0 精华：0 注册：2013/1/26 14:43:00

回复：（魔鬼之神）回复：（狐狸爸爸）Dim f As New F... 发帖心情

Post By：2013/3/8 10:47:00 [只看该作者]

在点击按钮导入数据时，我想把当前主表上的关联列(ZBID)也导到当前明细表里的关联列（MXID）,这样写是不对的吧？Dim f As New Filler
f.SourceTable = DataTables("SPDA") '指定数据来源
f.SourceCols = "SPBM,SPMC,'" & Tables("DHD").Current("ZBID") & "' As MXID" '指定数据来源列
f.DataTable = DataTables("DHD_SPMX") '指定数据接收表
f.DataCols = "SPBM,SPMC,MXID" '指定数据接收列
f.Fill() '填充数据