在线，请教关于datawindow中的数据转换text

accessok 2003-09-14 11:58:20

我想把datawindow中的数据转换为text文本，请问用什么语句，请尽量写的全一些
另外一个问题是我datawindow中的数据字段有的用了掩码，在text也要表现出来，谢谢

...全文

25 13 打赏收藏转发到动态举报

写回复

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

鸡翅多 2003-09-15

打赏
举报

回复

导出的时候，从数据窗口把数据一条一条的写出来，就可以控制格式等等的问题了

accessok 2003-09-15

打赏
举报

回复

请您给一段代码吧

klbt 2003-09-14

打赏
举报

回复

只能自己做一个函数了。

accessok 2003-09-14

打赏
举报

回复

请高手解决，万分感激

pbaccess 2003-09-14

打赏
举报

回复

这个问题我也遇到过，请问怎样解决

accessok 2003-09-14

打赏
举报

回复

在线求帮助

accessok 2003-09-14

打赏
举报

回复

在线求帮助

accessok 2003-09-14

打赏
举报

回复

我只能用text或excel，现在是我转换为excel后，发现处理的数据和数据库中的一样，也就是和datawindow显示的不一样（因为我用editmask），而转换为text后发现和数据库的更不一样，那些货币型的我在sql server中的是2位，在text是4位小数，而editmask后的数据仍然没变，请问怎样才能变位我要的那种，（就是数据窗口显示的）

double22822 2003-09-14

打赏
举报

回复

当然了，掩码是pb 的功能，是他的显示方式，用save as html 形势试一下，我忘记了。

accessok 2003-09-14

打赏
举报

回复

等了好久，没有人回帖

accessok 2003-09-14

打赏
举报

回复

为什么我用dw_1.saveas("C:\select.txt",text!,true) 保存后，text与datawindow中显示的不一样，我是指datawindow中的字段用掩码后，保存到text中没有变化，

shentj 2003-09-14

打赏
举报

回复

dw_History.SaveAs("G:\INVENTORY\EMPLOYEE.txt", text!, FALSE),可查看帮助

accessok 2003-09-14

打赏
举报

回复

请大家看看

DataWindow数据窗口资料

将datawindow中的数据转为用listview显示

DataWindow 保存数据超长错误解析

PB Datawindow数据窗口编程指南WDL，电子图书中详细讲解了Datawindow 编程的各种方法！

当数据存在主次表时，当更新了次表数据后，主表数据在后台有更变时。可利用刷新主表当前行的方法重显主表数据。 /************************************************************ 函数名称: f_refresh_currentrow(adw) 功能: 刷新DW当前行数据,不可刷新NO update or 带arguments的DW 参数说明: adw 目标DW 返回值: integer 成功返回1,失败返回-1 作者: sean 创建时间: 2010年8月18日 ************************************************************/ string ls_dataobject string ls_keys[] //key Column Name string ls_dbname[] //key field Name string ls_coltype[] //field style string ls_tablenm //table name string ls_condition //sql Condition long ll_currentrow //Current Row numeric long ll_column //Column count integer i datawindow ldw datastore ldatastore ldw=adw if ldw.rowcount( )=0 then return -1 elseif trim(ldw.describe( "datawindow.table.arguments"))<>'?' then messagebox('','刷新数据窗口当前行失败！，数据窗口需要参数',exclamation!) return -1 else ll_currentrow=ldw.getrow( ) FOR ll_column = 1 TO long(ldw.object.datawindow.column.count)//key names If ldw.Describe("#"+string(ll_column)+".key") ='yes' Then i++ ls_keys[i]=ldw.Describe("#"+string(ll_column)+".name") ls_dbname[i]=ldw.Describe("#"+string(ll_column)+".dbname") ls_coltype[i]=ldw.Describe("#"+string(ll_column)+".coltype") End If NEXT if upperbound(ls_keys[])=0 then messagebox('','刷新数据窗口当前行失败！，没有主键',exclamation!) return -1 else ls_tablenm=left(ls_dbname[1],pos(ls_dbname[1],'.') -1) //table name for i=1 to upperbound(ls_keys[]) if pos('numb,deci,long,',LeftA(ls_coltype[i],4) +',')>0 then ls_condition+="and "+ls_dbname[i]+"="+string(f_getitem(ldw,ll_currentrow,ls_keys[i])) else ls_condition+="and "+ls_dbname[i]+"='"+string(f_getitem(ldw,ll_currentrow,ls_keys[i]))+"'" end if next ls_condition=mid(ls_condition,4) //sql Condition ldatastore=create datastore ldatastore.dataobject=ldw.dataobject ldatastore.settransobject( sqlca) if f_addwhere_retrieve(ldatastore,ls_condition)=1 then if ldatastore.rowcount( )=1 then ldw.object.data[ll_currentrow]=ldatastore.object.data[1] ldw.setitemstatus( ll_currentrow, 0, primary!, NotModified!) //if ldw.getrow( )<>ll_currentrow then ldw.scrolltorow( ll_currentrow) end if else messagebox('','刷新数据窗口当前行失败！，条件语法错误',exclamation!) return -1 end if destroy ldatastore end if end if

609

社区成员

20,469

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章