主题：[注意]east858请进！

[这个贴子最后由wjq1072在 2011/04/21 10:26am 第 1 次编辑]

不要用悄悄提问，附件受限，论坛提问最方便！
egd文件下载

其实不用Eval函数简化就是如下公式：

SetLabel("序列号",Text([序列号])) And
SetLabel("档案号",Text([档案号])) And
SetLabel("单号",Text([单号])) And
SetLabel("姓名",Text([姓名])) And
SetLabel("R球镜",Text([R球镜])) And
SetLabel("L球镜",Text([L球镜])) And
SetLabel("R柱镜",Text([R柱镜])) And
SetLabel("L柱镜",Text([L柱镜])) And
SetLabel("R光轴",Text([R光轴])) And
SetLabel("L光轴",Text([L光轴])) And
SetLabel("瞳距",Text([瞳距])) And
SetLabel("RADD",Text([RADD])) And
SetLabel("LADD",Text([LADD])) And
SetLabel("镜架品牌",Text([镜架品牌])) And
SetLabel("框架类型",Text([框架类型])) And
SetLabel("镜架色号",Text([镜架色号])) And
SetLabel("镜架型号",Text([镜架型号])) And
SetLabel("镜架规格",Text([镜架规格])) And
SetLabel("镜片品牌",Text([镜片品牌])) And
SetLabel("镜片材料",Text([镜片材料])) And
SetLabel("镜片颜色",Text([镜片颜色])) And
SetLabel("膜层颜色",Text([膜层颜色])) And
SetLabel("镜片规格",Text([镜片规格])) And
SetLabel("描述备注",Text([描述备注])) And
SetLabel("UV",Text([UV])) And
SetLabel("EMI",Text([EMI])) And
SetLabel("订单日期",Text([订单日期])) And
SetLabel("配装日期",Text([配装日期])) And
SetLabel("电话",Text([电话])) And
SetLabel("定配工",Text([定配工]))