pb中 如何把两个表中的内容导出到一个电子表格 如何把一个字段作为下拉列表框的item

Posted 2023-05-09

第一个，导出的问题，可以通过数据窗口来完成，你把数据窗口的查询语法设置为从两个表查询就行了。然后使用数据窗口的saveas函数，保存为xls格式，就导出到excel中了。
另外也可以通过DB画板，在ISQL SESSION页里面自己写查询语句，查询出结果后，然后在查询出结果的地方点右键选择save rows as...，然后自己选保存格式，选择csv格式就可以导入到表格了。

第二个问题没太明白您的意思，是要把一个字段的内容放到dropdownlistbox控件中还是下拉数据窗口中？还是把这个字段本身作为内容放到下拉中？

如果是下拉数据窗口很简单，直接做一个子数据窗口显示要下拉的内容就可以了。
如果是放到ddlb当中，那么你可以先做一个子数据窗口，然后通过for循环逐行给ddlb增加内容，或者使用游标给ddlb逐个增加。使用ddlb_1.additem(内容)这个函数就行。追问

第二个问题的意思就是 假如说我在数据库中有一个字段是“民族” 那么我希望我在前台继续录入信息的时候 可以把“民族”这个字段中的内容添加到下拉列表框中 成为它的一项 不知道这回我说明白没有？

追答

明白了，不过不知道您这个信息录入是通过数据窗口，还是直接在前台的ddlb中选择信息？因为数据窗口的DDLB和前台的DDLB控件两者加入数据的方式不同。
dropdownlist控件里面只有一项，就是显示内容，当然还隐藏着一项叫INDEX。
而数据窗口的DDLB有两项，一项是显示内容还有一项是存储内容，类似下拉数据窗口。
如果是控件，那么很简单，可以使用游标或者数据存储来选择，然后通过函数ddlb_1.additem(民族信息)来实现。逐个的把民族加入到里面。
而数据窗口，使用setvalue函数来实现。
dw_1.SetValue(' 字段',序号, '显示内容~t存储内容')
比如要给area_code字段添加地区显示 001，北京 002， 上海
dw_1.SetValue('area_code', 1, '北京~t001')
dw_1.SetValue('area_code', 2, '上海~t002')

追问

嗯，是简单的控件 嘿嘿 但是 还得麻烦一下 在ddlb的哪个事件里面里写代码啊？ 还有，您能提供一段参考代码吗？ 我在线等您。。

追答

如果你的ddlb控件的范围是已定的，那么可以在窗口的Open事件就把这些内容放进去了。
我举个例子，还是上边的例子，把全国的城市放到ddlb_1控件中，使用游标。
string ls_city
declare c_city cursor for select city_name from tb_cities;
open c_city;
fetch c_city into :ls_city;
do while sqlca.sqlcode = 0
ddlb_1.additem(ls_city) ---这是关键一句
fetch c_city into :ls_city;
loop;
close c_city;
这样就通过游标，逐个的把所有的城市都放到控件中了。

参考技术A 第一个用saveas或者建立uo解决。第二个可能你是想把数据窗口中的字段最为下拉列表把，可用dddw解决或者你的意思是建立一个改字段的数据窗口（隐藏的），然后检索出来给ddlb赋值吧！ 参考技术B copy就好了，真的是麻烦！
呵呵，这个就是要在设置-----中间有个数列

Office表中如何把一定范围单元格的内容多列数据去除空值以TXT文本方式导出？

如何将Q2:Q50,R2:R50,S2:S50,T2:T50,U2:U50,的内容去掉空单元格后依次导出成为txt文本？导出的文件名为Q1:U1为文件名，以后图片为例子可以导出5个文本。

Office表中把一定范围单元格的内容多列数据去除空值以TXT文本方式导出。
具体操作步骤如下：
1、选中Q列至U列数据区域；
2、按F5或Ctrl+G定位对话框；
3、在对话框中选择“空值”，并单击“确定”按钮；
4、在被选中区域单击鼠标右键，选择“删除”-“下方单元格向上移动”；
5、分别将这几列复制粘贴到单个的Excel，最后另存为TXT文档。

定位设置图：

删除空格后效果图：

追问

你这是快速选择空值单元格，我说的是以TXT文本方式导出，导出时要去除空值

参考技术A WPS和office2019版本新增加的textjoin函数可以实现文本合并，并且可以剔除其中的空单元格。你使用的office2003或者2007没有办法直接合并文本。（&和concatenate函数功能局限性） 参考技术B 1.先将B列、C列数据一次剪切粘贴跟在A列数据后面2.在原来B列 B1=IF(A1=＂＂,＂1＂,＂0＂) 向下拉动复制公式3.选中所有A、B两列数据区域 按B列升序排序