以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  点击按钮导入数据到当前明细表出错  (http://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...
好的，我现在做个例子上传