[code="python"]TreeViewItem cdItem
tv_1.GetItem(handle,cdItem)
long finded
String tablelabel,tablename
tablelabel = cdItem.Label
if tablelabel "" Then
select count(*)
into:finded
from pbcattbl
where pbt_cmnt = :tablelabel;
select pbt_tnam
into:tablename
from pbcattbl
where pbt_cmnt = :tablelabel;
if finded = 0 Then
select count(*)
into:finded
from pbcattbl
where pbt_tnam = :tablelabel;
tablename = tablelabel
end if
if finded >= 1 Then
string ls_syntax,ls_sql,ls_error,colname,collabel
long ls_rowcount,i
//查找要显示的字段
ls_sql ="SELECT pbc_cnam,pbc_cmnt FROM pbcatcol where pbc_tnam = '"+tablename+"'"
ls_syntax =sqlca.syntaxfromsql(ls_sql, ' ',ls_error)
if len(ls_error)>0 then messagebox("错误",ls_error)
dw_3.create(ls_syntax,ls_error)
if len(ls_error)>0 then messagebox("错误",ls_error)
dw_3.settransobject(sqlca)
dw_3.retrieve()
ls_rowcount = dw_3.RowCount()
ls_sql ="SELECT "
for i = 1 to ls_rowcount
ls_sql= ls_sql + dw_3.GetItemString(i,1)
if i ls_rowcount Then
ls_sql = ls_sql + ","
end if
next
ls_sql = ls_sql + " FROM "+tablename
ls_syntax =sqlca.syntaxfromsql(ls_sql, ' ',ls_error)
if len(ls_error)>0 then messagebox("错误",ls_error)
dw_1.create(ls_syntax,ls_error)
if len(ls_error)>0 then messagebox("错误",ls_error)
*/
dw_1.settransobject(sqlca)
dw_1.modify("IF(MOD(GETROW(),2)=0,RGB(192, 192, 192), RGB(255, 255, 255))")
dw_1.retrieve()
//THIS.PostEvent("ue_postopen")
else
MessageBox("错误","数据库中没有该表")
end if
end if
分享到:
相关推荐
PB Datawindow 导出 pdf 文件方法,可导出数据窗口中所有内容,直接生成pdf
文中提供有关DataWindow的案例,在案例体现出DataWindow控件函数及使用技巧。通过学习能快速掌握DataWindow控件
pb中用DataWindow实现对多表的修改;pb中用DataWindow实现对多表的修改;pb中用DataWindow实现对多表的修改;pb中用DataWindow实现对多表的修改;pb中用DataWindow实现对多表的修改;pb中用DataWindow实现对多表的修改;pb...
PBdatawindow导出excel函数 源码 非常 方便
Web打印利器之PbDataWindow__Net博文_CS程序员之窗_shtml.mht
pb9 用datawindow 实现 treeview 树型结构
PB Datawindow数据窗口编程指南WDL,电子图书中详细讲解了Datawindow 编程的各种方法!
PB DataWindow 38个技巧
在PowerBuilder DataWindow 利用数据窗口对象,,我们们可以十分方便(地)完成对数据库中已经存在(的)表中数据进行检索、查询、插入、删除和更新.. 这是我自己做的 绿色免安装汉化版 简单好用 必要时候可以代替 PB进行...
PB DataWindow 38个技巧,非常实用的!
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_...
PB DataWindow 38个技巧 PB DataWindow 38个技巧
pb中DataWindow的打印输出(2) -PowerBuilder 提 供 了 一 组 打 印 控 制 函 数 来 控 制 要 交 给 打 印 机 打 印的 对 象。 第 一 个 函 数P rintOpen() 在 这 章 的 前 面 我 们 已 介 绍过 了, 其 它 还 有: ...
pb datawindow 手册 pb datawindow 手册
PB12 datawindow保存为bmp 采用api函数来实现
pb中xml导入datawindow源码
PB-数据库保存图片并在Datawindow中显示.rar
PB的datawindow导出到excel文件