填空题
(2)组合框(Combo1)的InteractiveChange事件代码如下:
cDm=ALLTRIM(THIS.Value)
SELECT SUM(sbmx.dj).COUNT(*) FROM sbmx;
WHERE ALLT(Sbmx.dm)=cDm INTO ARRAY cA
THISFORM.Gridl. 1 ="SELECT sbmx.dm AS 设备代码,;
sbdm.pm AS 设备名称,sbmx.dj AS 单价;
FROM sbgl!sbdm INNER JOIN sbgl!sbmx;
ON Sbdm.dm=Sbmx.dm;
WHERE ALLT(sbmx.dm)=cDm;
INTO CURSOR temp"
THISFORM.Textl.Value=cA(1,1)
THISFORM.Text2.Value=cA(1,1)/cA(1,2)
THISFoRM.Label4.CAPTION=ALLTRIM(Sbdm, 2 )+"设备明细表"