SELECT str(壁厚) FROM 壁厚 INTO ARRAY bihou
SELECT COUNT(*) FROM 壁厚 INTO ARRAY bihoun
&& bihoun(1) 存放的是个数 ，如果bihou不为空，则添加到combobihou的数据中去
FOR i=1 TO bihoun(1) STEP 1
IF bihou(i) is not null THEN
thisform.combobihou.AddItem(bihou(i))
ENDIF
ENDFOR
Select Distinct 壁厚 From 壁厚 Into Array a壁厚
With ThisForm.comboBihou
For m.iIndex = 1 To _Tally
.AddItem(Transform(m.a壁厚[m.iIndex]))
Next
EndWith
Release iIndex,a壁厚
下拉列表框的事吧
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024