Tiger5392,遇到些问题,帮忙看看那里错误,谢谢!
提示错误“此对象的数据源必须是一个变量引用”
“显示”按钮的Click事件如下:
set safe off
set talk off
set echo off
close tables all
fn=alltrim(Thisform.t1.value)+'.dbf'
if File(fn)
If Used(fn)
Select (fn)
use (fn) alias MyTable
thisform.s.controlsource=MyTable.深度
thisform.q.controlsource=MyTable.电磁强度
thisform.n.controlsource=MyTable.电磁脉冲数
thisform.f.controlsource=MyTable.声发射强度
thisform.w.controlsource=MyTable.温度变化
thisform.b.controlsource=MyTable.变质程度
thisform.d.controlsource=MyTable.断层情况
thisform.wz.controlsource=MyTable.位置说明
thisform.tc.controlsource=MyTable.突出情况
else
Use (fn) In 0
use (fn) alias MyTable
thisform.s.controlsource=MyTable.深度
thisform.q.controlsource=MyTable.电磁强度
thisform.n.controlsource=MyTable.电磁脉冲数
thisform.f.controlsource=MyTable.声发射强度
thisform.w.controlsource=MyTable.温度变化
thisform.b.controlsource=MyTable.变质程度
thisform.d.controlsource=MyTable.断层情况
thisform.wz.controlsource=MyTable.位置说明
thisform.tc.controlsource=MyTable.突出情况
endif
else
=messagebox('无此工作面,请重新输入!',0+64+0,'提示')
thisform.t1.value=" "
endif