在超市pos系统中要设置一个全局变量dm,对它赋值登录时使用的员工代码，在后面超市收银表单中调用以统计每个员工的销售额。那么这个全局变量应该在哪里设置呢？
我在用户登录表单的load事件后面加了
public dm
dm=thisform.no.value
但是收银表单总是报错，那到底要怎么设置呢？
（no是输入员工代码的文本框的Name）
求助！！！

可以在主程序中定义dm

表单load的事件的时候
表单中的控件还没有加载
所以dm = thisform.no.value会出错

也可以放到表单的init事件中
OK

这是收银表单 录入完毕按钮的click代码，红色为报错部分，数据类型不匹配
set talk off
select kc
set order to spdm_kc
select xs1
go top
do while ! eof()
     select kc
     seek xs1.商品代码
     replace 库存 with 库存-xs1.销售数量
     select xs1
     skip
enddo
select xs
append from xs1
replace all 员工代码 with dm for alltrim(员工代码)=""
select xs1
sum 销售价格*销售数量 to y
y=str(y,8,2)
=messagebox(y+"元!",0,"本次消费合计:")
delete all
thisform.refresh

我试过加在init那里，但还是报错数据类型不匹配，显示dm为逻辑型数据

主程序MAIN.PRG中
PUBLIC DM
DM=[]

replace 员工代码 with dm for alltrim(员工代码)=""


[ 本帖最后由 sdta 于 2013-4-16 17:45 编辑 ]

那是不是连编之后才不会报错

如果是单个表单运行，可以在表单的LOAD事件中
PUBLIC DM
DM=[]
在COMMAND1事件中加入下面代码
DM=ALLTRIM(THISFORM.NO.VALUE)
replace 员工代码 with dm for alltrim(员工代码)=""

不一定

数据类型不匹配

检查下表中是不是字符型

用了5 楼和7楼的方法，如果还是报错,则有如下可能。
你那个 xs 表也有不是字符型的字段 dm,（可以用 m.dm 避免内存变量与字段同名的冲突)
replace 员工代码 with m.dm for alltrim(员工代码)=""

或者 员工代码 不是字符型。