2,723
社区成员
发帖
与我相关
我的任务
分享
cur_ProId=ALLTRIM(this.Value)
IF LEN(cur_ProId)=0 then
RETURN
ENDIF
SET SAFETY OFF
&& if the DBC hasn't opened , open it right now
IF LEN(DBC())=0 then
open database "F:\Company_Code\NO_Equip\DB\DB.dbc"
endif
thisform.combo_EngId.RowSource=""
ssql="select Eng_id,Eng_Name from db!t_engineer where ALLTRIM(pro_Id)='"+cur_ProId+"' into dbf temp_Engineer "
&ssql
thisform.combo_EngId.Value=""
thisform.combo_EngId.ColumnCount=2
thisform.combo_EngId.RowSourceType=2
thisform.combo_EngId.RowSource="temp_Engineer"
thisform.combo_EngId.ListIndex=1