【转】【PB】动态添加数据窗口列中下拉列表的内容
2016-03-19 19:43
323 查看
1.设置数据窗口某个列(dept_id)的style type为DropDownListBox:
[cpp] view plaincopy
dw_1.Modify("dept_id.ddlb.case='any'")
2.为下拉列表框添加数据:
[vb] view plaincopy
boolean lb_flag = false
string ls_facno, ls_facname, ls_value
declare cur_munit dynamic cursor for sqlsa ;
prepare sqlsa from "select distinct facno from secmemb where userno = ? order by facno" ;
open dynamic cur_munit using :userid ;
ls_value = colname + ".values=' ~t '"
fetch cur_munit into :ls_facno ;
do while sqlca.sqlcode = 0
ls_facno = Trim(ls_facno)
select facname into :ls_facname from misunit where facno = :ls_facno ;
if not lb_flag then
ls_value = colname + ".values='"
lb_flag = true
else
ls_value += "/"
end if
ls_value += Trim(ls_facname) + "~t" + Trim(ls_facno)
fetch cur_munit into :ls_facno ;
loop
close cur_munit ;
ls_value += "'"
if dwobj.Modify(ls_value) <> "" then return -1
[cpp] view plaincopy
dw_1.Modify("dept_id.ddlb.case='any'")
2.为下拉列表框添加数据:
[vb] view plaincopy
boolean lb_flag = false
string ls_facno, ls_facname, ls_value
declare cur_munit dynamic cursor for sqlsa ;
prepare sqlsa from "select distinct facno from secmemb where userno = ? order by facno" ;
open dynamic cur_munit using :userid ;
ls_value = colname + ".values=' ~t '"
fetch cur_munit into :ls_facno ;
do while sqlca.sqlcode = 0
ls_facno = Trim(ls_facno)
select facname into :ls_facname from misunit where facno = :ls_facno ;
if not lb_flag then
ls_value = colname + ".values='"
lb_flag = true
else
ls_value += "/"
end if
ls_value += Trim(ls_facname) + "~t" + Trim(ls_facno)
fetch cur_munit into :ls_facno ;
loop
close cur_munit ;
ls_value += "'"
if dwobj.Modify(ls_value) <> "" then return -1
相关文章推荐
- 持续集成(CI)、自动化构建和自动化测试--初探
- Linux添加软件连接方法
- servlet中request与response的用法
- BST
- 软件代码规范之理解
- MySQL的事务隔离级别和锁
- 匿名函数
- php的字符串处理
- POJ1182并查集
- 【jdk1.8】HashMap源码分析
- SpeedTree - 在UE4中使用模型
- php的函数应用
- EaselJS的九宫格缩放图片
- C++ 继承&多态
- 分布式文件系统FastDFS原理介绍
- JavaWeb开发之七:利用servlet生成验证码
- DOM之样式相关
- Python 打开文件读取每行数据
- 配置spark开发环境2——安装centos
- __getattr__和__setattt__使用