string part_name,part_idint ilb_1.visible=falsedw_3.settransobject(sqlca)dw_3.retrieve()dw_3.visible=falsedw_2.visible=falsedw_2.settransobject(sqlca)dw_2.retrieve()if dw_2.rowcount()>0 then for i =1 to dw_2.rowcount()part_name=dw_2.getitemstring(i,"dept_name")part_id=dw_2.getitemstring(i,"dept_code")ddlb_1.additem(part_id +"("+ part_name+")")nextend if//Select…As…的As可将列标题显示为As之后的字符，较为灵活方便。//可根据实际情况设计生成Select语句及Where子句的可视化界面DataWindow dwdw=Create DataWindow string lssqlstr,lsdwsyntax,lserr,lserrc,presentation,lssqlstr1,lsdwsyntax1presentation="style(type=grid)"lsSQLstr="Select * From salary "lssqlstr1="select * from salaryyyyy"lsDwsyntax=SQLCA.SyntaxFromSQL(lsSQLstr,presentation,lserr) //构造SyntaxFromSQL()函数lsdwsyntax1=sqlca.syntaxfromsql(lssqlstr1,presentation,lserr)If Len(lserr)>0 Then//如果构造SyntaxFromSQL()函数失败，则显示错误信息并退出messagebox("错误信息!",lserr)Returnend ifdw_1.Create(lsDwsyntax,lserrC)//dw_4.create(lsdwsyntax1,lserrc)//创建动态数据窗口dw_1If Len(lserrC)>0 Then//如果创建动态数据窗口dw_1失败，则显示错误信息并退出messagebox("错误信息!",lserrC)Returnend if//为dw_1分配事务对象SQLCAdw_1.SetTransObject(SQLCA) dw_1.retrieve()dw_4.settransobject(sqlca)dw_4.retrieve()//提取数据////dw_1.Retrieve() string ls_col1,ls_col2,ls_name;//DECLARE v_cur CURSOR FOR SELECT a_fldname,a_name FROM itemset;//OPEN v_cur ; //FETCH v_cur INTO :ls_col1, :ls_col2 ;//do while sqlca.sqlcode=0// //ls_name=ls_col1+‘_‘+‘t‘+‘.‘+‘text‘+‘=‘+‘"‘+ls_col2+‘"‘// ls_name=ls_col1+"_t.text = ‘"+ls_col2+"‘"// dw_1.modify(ls_name)// FETCH v_cur INTO :ls_col1, :ls_col2 ;//loop//close v_cur;for i =1 to dw_3.rowcount()ls_col1=dw_3.getitemstring(i,"a_fldname")ls_col2=dw_3.getitemstring(i,"a_name")ls_name=ls_col1+"_t.text = ‘"+ls_col2+"‘"dw_1.modify(ls_name)// dw_4.modify(ls_name)