以文本方式查看主题

-  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp)
--  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2)
----  请各位老师看一下导入数据公式能不能简化？  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=2182)
--  作者：abcdzabcdz
--  发布时间：2011/7/14 11:14:00
--  请各位老师看一下导入数据公式能不能简化？
有近40多个文件，文件名相同（结构一致），但目录不同，若按下列语句需写40多条：
ImportDBFile("X:\\房源采集软件\\Data\\58同城\\SpiderResult.mdb",1,"fangyuan")
（在“X:\\房源采集软件\\Data\\***\\SpiderResult.mdb”中的路径仅“***”号处不同）
请教各位老师一下，看能不能简化？
--  作者：wjq1072
--  发布时间：2011/7/14 11:32:00
--  
“路径仅“***”号处不同”

增加一表（k）、一字符型列（p）,在p列中填上不同的路径“***”。
简化公式如下试试？

Eval("ImportDBFile(""X:\\房源采集软件\\Data\\"+Substitute(ListFor("k","p"),"|","\\SpiderResult.mdb"",1,""fangyuan"") And ImportDBFile(""X:\\房源采集软件\\Data\\")+"\\SpiderResult.mdb"",1,""fangyuan"")")

--  作者：abcdzabcdz
--  发布时间：2011/7/14 11:42:00
--  
谢谢老革命！
--  作者：abcdzabcdz
--  发布时间：2011/7/14 11:46:00
--  
这样导入数据就方便多了，以后增加数据仅需修改K表中相关内容即可。