主题：[求助]如何将查询窗口的信息复制到另一张表中

老师你好，有个问题请您帮助。我在查询窗口中设置一个【档案登记】按钮，用来实现借阅的档案直接登记（对应的列是‘借阅时间’）， 就是把当前窗口的信息复制到《档案借阅》表中。下面是我设置的公式，请老师帮我看看，怎么一点【档案登记】按钮就全部复制过去了。这是我上传的文件，谢了。AddCol(GridName,"标识",3, True )  And AddCol(GridName,"标识1",3, True ) And EvalFor(GridName,"标识","If(Text([借阅时间]) = """",-1,0)") And CopyRows("档案借阅","标识", "=" ,-1) And DeleteCol(GridName,"标识1") And DeleteCol(GridName,"标识")  And OpenWindow(0) And MsgBox("已完成登记!",1)

另外，老师，前几天您教我的将EXCEL文件导入时，我不小心打开了《档案借阅》表，但是也能将EXCEL文件导入，导入路径是：ImportDBFile("d:\档案明细表.XLS",6,"档案明细表") And MsgBox("已完成导入!",1)
egd文件下载

[这个贴子最后由lyang70在 2011/09/21 01:22pm 第 1 次编辑]

没找到所谓的"查询窗口中设置一个【档案登记】按钮"...

先按版主的建议处理一下吧...

1、...
2、隐藏无关的列；
3、暂时不要启用自定义菜单；
4、无关紧要的表预处理公式删除。
这样方便查看你的文件。

老师，是【借阅登记】按钮，不好意思。就是把当前窗口查询到的信息复制到《档案借阅》表中。另外，老师，前几天您教我的将EXCEL文件导入时，我不小心打开了《档案借阅》表，但是也能将EXCEL文件导入，导入路径是：ImportDBFile("d:\档案明细表.XLS",6,"档案明细表") And MsgBox("已完成导入!",1)
多谢了。egd文件下载

egd文件下载

版主你好：我的意思是在我上传的软件窗口中查到要借阅的档案信息后，在此窗口的{借阅时间}一栏内录入时间等其他借阅信息，然后按【保存文件】按钮，再按【借阅登记】按钮将此条信息保存到《档案借阅》表内。版主刚才为我作的【借阅登记】按钮公式我试过了，只要点击【借阅登记】按钮，以前作过借阅登记的信息将重复登记在《档案借阅》表内，点击【借阅登记】按钮一次，就在《借阅登记》表内重复登记一次。如何处理？谢版主了。

egd文件下载

谢谢老师，太好了。另外，老师，前几天您教我的将EXCEL文件导入时，我不小心打开了《档案借阅》表，但是也能将EXCEL文件导入，导入路径是：ImportDBFile("d:\档案明细表.XLS",6,"档案明细表") And MsgBox("已完成导入!",1)
多谢了。
[UploadFile=1B51B51B01B81C31_1316603378.zip]

-=-=-=- 以下内容由 zzyuan8989 在 2011年09月21日 07:13pm 时添加 -=-=-=-
就是说不但能导入到《档案明细表》中，也能导入到《档案借阅》和《移出档案明细表》中。正常不应当啊。

不知道你的公式在哪里啊？

老师：公式在工具栏中的导入按钮。egd文件下载

-=-=-=- 以下内容由 zzyuan8989 在 2011年09月21日 08:14pm 时添加 -=-=-=-
或文件--文件设置---菜单方案

-=-=-=- 以下内容由 zzyuan8989 在 2011年09月21日 08:23pm 时添加 -=-=-=-
版主您辛苦了。拜谢了。

egd文件下载