寻求 vfp 中 ole   错误码   ox80040150解决方法？

可能是引用这个 ole 控件中的某个不存在的属性或方法、事件

你用到的activeX控件没有注册的原因

用Regsvr32   注册一下就可以了

怎样在程序中注册？能不能详细介绍介绍？

找到你使用的控件库名，在windows命令窗口执行 Regsvr32  类名

谁给我提供的 我忘记了

number=adir(array,"*.ocx")
for nn=1 to number
    if !file(lpBuffer+"\"+array(nn,1))
        rename sys(5)+sys(2003)+"\"+array(nn,1) to lpBuffer+"\"+array(nn,1)
    endi
    REGSVR_32(lpBuffer+"\"+array(nn,1),.t.)&&←注册-注销→        REGSVR_32(lpBuffer+"\"+array(nn,1),.f.)
endf
wait clea

retu

proc regsvr_32
para lpcRegFilename,lplIsreg
If File(lpcRegFilename)
    if lplisreg
        Run /n regsvr32 "&lpcRegFilename" /s
    else
        Run /n regsvr32 /u "&lpcRegFilename" /s
    endi
Endif