问 关于想下拉列表插入数值的问题！
我有一张表 有两个字段 序号（xuhao）和题型(tixing)建立了一个数据窗口来增加题型的内容。
1、我想用一个下拉列表框来动态的选择我题型，是不是在ddlb_1的constructor里面添加sql语句 怎么用additem
2、当我在下拉列表框里选择了一个选项后怎么 在另一个数据窗口里显示它的内容。具体的语句是什么？
问题点数：100、回复次数：6Top
1 楼fallstone（天蓝）回复于 2002-05-17 09:17:15 得分 10
不一定在CONSTRUCTOR里写
ddlb_1.Additem(ls_viarable)
可以在任何需要的时候添加。
在数据窗口里显示的时候把你下拉列表框里的值作为检索条件不就可以了？Top
2 楼myclife（反方向的钟）回复于 2002-05-17 09:35:45 得分 10
/*=====================================================================*/
//
// 函数 F_fill_ddlb ()
//
// .功能：
// 从数据库中读数填入控件ListBox中
// .参数：
// plb_obj 要形成数据的ListBox
// ps_val 码表数据源，其格式有两种：
// 1) 数据项子串，各数据项间用'/'分割。如："执行 1/终止 2"，共两项
// 2) SELECT语句，从表中取数据项。如："SELECT F_CPBH FROM XSCPZD"
// .返回:
// integer: 1 成功
// - 1 失败
// .调用函数：
// 无
// .调用示例：
// f_fill_ddlb(plb_obj,"执行 1/终止 2")
// .LOG:
//
//
/*=====================================================================*/
integer li_pos
long ll_cnt
string ls_Type, ls_valu
ps_val = trim(ps_val)
if ps_val = '' then return 1
ls_Type = lower(left(ps_val,4))
CHOOSE CASE ls_Type
CASE 'sele' // select语句
//为指定的事务SQLSA，定义游标My_Cursor
DECLARE My_Cursor DYNAMIC CURSOR for SQLSA;
PREPARE SQLSA FROM :ps_val USING SQLCA;
OPEN DYNAMIC My_Cursor;
IF sqlca.sqlcode <> 0 THEN
MessageBox("提示","打开游标出错："+sqlca.sqlerrtext)
return - 1
END IF
//循环取数
DO WHILE SQLCA.sqlcode = 0
FETCH My_Cursor INTO : ls_valu;
IF SQLCA.sqlcode = 0 and not (isnull(ls_valu) or ls_valu='') THEN
plb_obj.AddItem(ls_valu)
END IF
LOOP
CLOSE My_Cursor;
CASE ELSE
ls_valu = get_token(ps_val,'/')
DO WHILE ls_valu<>''
plb_obj.AddItem(ls_valu)
ls_valu = get_token(ps_val,'/')
LOOP
END CHOOSE
return 1
Top
3 楼lmby（鹿门布衣）回复于 2002-05-17 09:39:45 得分 50
declare cursor my_cur for select tixing from table;
open my_cur;
DO WHILE sqlca.sqlcode =0
ddlb.additem( ls_item )
LOOP
2。在下拉列表的selectionchanged里写：
string ls_tixing
ls_tixing = this.text
dw_name.settransobject( sqlca )
dw_name.retrieve( ls_tixing )
Top
4 楼liuyxit（初学Oracle）回复于 2002-05-17 09:46:13 得分 10
来迟了，同意 lmby(鹿门布衣) 的。
Top
5 楼zgl696（思索）回复于 2002-05-17 14:19:34 得分 20
同意！Top
6 楼hbzhanggl（正派）回复于 2002-05-17 14:22:15 得分 0
谢谢各位！Top
