- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 点击按钮导入数据到当前明细表出错 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=29513)
-- 发布时间：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
-- 发布时间：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() \'填充数据
-- 发布时间：2013/3/8 10:34:00
--
好。我试下。谢谢。
-- 发布时间：2013/3/8 10:39:00
-- 回复：（狐狸爸爸）Dim f As New Fillerf.SourceTable...
狐狸爸爸：第一个关联列是指DHD_SPMX的关联列吗？我写上去后，提示不存在这个关联列。
-- 发布时间：2013/3/8 10:47:00
-- 回复：（魔鬼之神）回复：（狐狸爸爸）Dim f As New F...
在点击按钮导入数据时，我想把当前主表上的关联列(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() \'填充数据
-- 发布时间：2013/3/8 11:09: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 = "DHD_SPMX的关联列名称 = \'" & Tables("DHD").Current("DHD的关联列名称") & “‘”
f.Fill() \'填充数据
这是假定关联列是字符型的，如果关联列是数值型：
Dim f As New Filler
f.SourceTable = DataTables("SPDA") \'指定数据来源
f.SourceCols = "SPBM,SPMC" \'指定数据来源列
f.DataTable = DataTables("DHD_SPMX") \'指定数据接收表
f.DataCols = "SPBM,SPMC" \'指定数据接收列
f.Filter = "DHD_SPMX的关联列名称 = " & Tables("DHD").Current("DHD的关联列名称")
f.Fill() \'填充数据
一般提问的话，最好配合一个简单的例子，例如做个文件，包括这两个表，保量几行数据，建立好关联，然后发上来，这样我们可以直接测试好后再给你正确的代码。
-- 发布时间：2013/3/8 11:20:00
-- 回复：（狐狸爸爸）Dim f As New Fillerf.SourceTable...
好的，我现在做个例子上传