以文本方式查看主题

-  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp)
--  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2)
----  关于这段公式怎么使用变量  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=20231)

--  作者:my668866
--  发布时间:2010/11/18 14:25:00
--  关于这段公式怎么使用变量
[这个贴子最后由my668866在 2010/11/18 02:34pm 第 1 次编辑]

ClearGrid("计算表")

And AppendFor("表","自动序号","自动序号","照","=","有")
And AppendFor("表","自动序号","自动序号","照","=","无")
And AppendFor("表","自动序号","自动序号","照","=","未见")
And AppendFor("表","自动序号","自动序号","照","=","储")
And AppendFor("表","自动序号","自动序号","照","=","台")

And DelRow("计算表",1)
And LockAll() And SortCol (GridName,"自动序号", 1 )
And Do(395) And OpenGrid("计算",1)

另一个表内容如下


未见

以上怎样能实现用另外一个表上的一列为内容基础为变量,来简化和方便管理这段公式

egd文件下载


--  作者:wjq1072
--  发布时间:2010/11/18 14:40:00
--  
没有看明白
--  作者:lyang70
--  发布时间:2010/11/18 14:49:00
--  
通过公式分析楼主要的结果好像就是打开“计算表”时把“表”的数据复制过来。如果是这样的话公式这样就行了:ClearGrid("计算表") And AppendFor("表","自动序号,照","自动序号,照") And DelRow("计算表",1) And SortCol (GridName,"自动序号", 1 ) And Do(395) And OpenGrid("计算",1)
--  作者:wjq1072
--  发布时间:2010/11/18 14:58:00
--  
ClearGrid("计算表") And AppendRows("表","照"," <> " ,"") And DelRow("计算表",1) And  SortCol (GridName,"自动序号",1)
--  作者:my668866
--  发布时间:2010/11/18 15:27:00
--  
我不是想复制表这么简单,我需要的是用变量处理复制的内容,我想根据  "照","="," ..变量.."  ..变量.. 来控制复制内容的,
当..变量..不一样是结果也不一样,..变量..可能是多个不同的内容。这个变量数值我想在第3个表里进行随意修改。
--  作者:wjq1072
--  发布时间:2010/11/18 15:53:00
--  
egd文件下载

-=-=-=- 以下内容由 wjq10722010年11月18日 04:07pm 时添加 -=-=-=-
这样?
ClearGrid("计算表") And SetLabel("","") And Eval("AppendRows(""表"",""照"",""="" ,"""+Substitute(ListFor("表3","第一列"),"|",""") And AppendRows(""表"",""照"",""="" ,""")+""")") And DelRow(Grid,1) And  SortCol (Grid,"自动序号",1)
--  作者:my668866
--  发布时间:2010/11/18 16:09:00
--  
谢谢,是我想要的。

可是又有个问题,用这个ClearGrid("计算表") And Eval("AppendRows(""表"",""照"",""="" ,"""+Substitute(ListFor("表3","第一列"),"|",""") And AppendRows(""表"",""照"",""="" ,""")+""")") And DelRow("计算表",1) And  SortCol (GridName,"自动序号",1)
进行操做时360报警,关掉360时系统很卡,程序不能继续执行,怎么办。
是不是我的版本有问题啊。我的E表版本是1730。系统XP


--  作者:my668866
--  发布时间:2010/11/18 16:21:00
--  
太感谢 wjq1072 了,解决了我好大的难题啊,要不都弄不下去了。
由衷的谢谢。