一些技巧

2.控件可拖动：
send(handle(this),274,61458,0)

3.如何用程序控制下拉子数据窗口的下拉和收起
用modify或者直接用dw_1.object.col1.dddw.showlist = true

4.检索参数有些不需要传入则传%.

5.如何屏蔽鼠标滚轮触发
在控件的other事件写
if message.number = 522 then return 1

6.得到数据窗口的语法：
string ls_dwsyntax
ls_dwsyntax=dw_1.describe("datawindow.syntax")

7.得到数据窗口中各列及标题：
long  ll_count,i
string ls_value,ls_colname

ll_colnum = Long(dw_1.object.datawindow.column.count)

for i = 1 to ll_colnum
  //得到标题头的名字
  ls_colname = dw_1.describe('#' + string(i) + ".name") + "_t"
  ls_value = dw_1.describe(ls_colname + ".text")
next

8.在程序中动态设置初始值:
ex:dw_contro.object.columnName.initial = 'xxxx'

9.如何在DataWindow的SQL语法中不使用SELECT DISTINCT实现删除重复的行

---- 起先对你要显示唯一值的列进行排序："city A"，然后增加如下过滤字符串：" city < > city [-1] or GetRow () = 1"

10.如何改变列的字体颜色，提醒用户此列已做修改

---- 在列的Color属性中，输入如下表达式IF (column_name < >column_name.Original, RGB(255, 0, 0), RGB(0, 0, 0))。在这个条件中，如果此列已改变，则显示红色字体，否则显示黑色字体。这个表达式主要用column_name < > column_name.Original比较当前列的值和原始列的值是否相同来达到判断的目的。

11.在数据窗口的clicked或doubleclicked事件中写上注释//可解决一些意外的bug!

12.如何屏蔽上下鍵触发
新建一个事件：id为pbm_dwnkey
IF KeyDown(KeyDownArrow!) OR KeyDown(KeyUpArrow!) Then
    Return 1
End IF

13.你注意到没有，数据窗口画板里面，在写表达式的时候，试着用一些用户自定义的全局变量和全局函数，你会发现在某些特殊的场合，这个小窍门还是很有用的。

14.有些程序员在窗口的右键pop菜单里面写了很多代码，在菜单里面有很多w_windowname.controlname等等引用，如果这个窗口被继承，很容易就会出毛病，别忘了在菜单里面可以引用parentwindow哦，有了它我的pop菜单里面的代码和具体窗口无关，随便继承。当然强烈建议最好还是把所有和窗口相关的逻辑都转移到窗口的函数和事件中去，在pop菜单中触发调用。

15.whichdw.describe("evaluate('lookupdisplay("+colname+")',"+string(row)+")")

这个表达式可以得到指定列的显示值。（这个知识点有滥竽充数之嫌，但是一时间我真是想不起来太多的东西）

16.在数据窗口画板里面我们如果想要比较当前行和上一行或者下一行的值，怎么比较呢，哈哈，看这个就知道了

if ( yw_bc_circuit_dlcode = yw_bc_circuit_dlcode [-1] and  yw_bc_circuit_dlname =  yw_bc_circuit_dlname [-1] and  yw_bc_circuit_xtno = yw_bc_circuit_xtno [-1] ,0,1)

这个表达式就是比较当前行和上一行是否相同的。其他的依此类推就行了。

17.两个结构相同的数据窗口之间快速复制数据

dw_1.object.data = dw_2.object.data

18.根据条件改变记录颜色
if ( Mod(getrow(),2)=0,rgb(0,255,255),rgb(255,255,255)) //奇偶行不同色
if (currentRow()=getrow(),rgb(0,255,255),rgb(255,255,255)) //当前行不同色

19.使窗口总位于所有打开窗口的最上面
w_main.SetPosition(Topmost!)

20.取数据窗口中列的总数
string ls_count
ls_count = dw_1.describe("datawindow.column.count")

 

21.取数据窗口中可列新的表名。

string ls_table

ls_table = dw_1.describe("datawindow.updatetable.table")

22.取数据窗口对象中列的名称及类型

string ls_cols[],ls_types[]

int   li_count,i

li_count = integer(ls_count)

for i = 1 to li_count

  ls_cols[i] = dw_1.describe("#"+string(i)+".name")

  ls_types[i] = dw_1.describe("#"+string(i)+".coltype")

next

23.Case(  dealintype  WHEN  0 THEN RGB(254,251,235)  WHEN  2 THEN rgb(254,251,235)  ELSE RGB(0,0,255))

写道字段的protect中不仅仅是颜色改变的问题看看

24.dw.Object.col[n] : 直接获得数据窗口的col列第n 行的数据。

25.在做数据窗口时，我们有时候希望能够多一些字段来作一些特殊的用处，但是在数据窗口中又不能乱加字段，因为已有的字段必须是数据库中有的或者是他们的组合，呵呵，大家不妨看看这个sql用产生什么样的数据窗口

select colname1,colname2,1,''

 from tablename

是不是多出了两个字段阿，一个是字符串字段，一个是数字字段

别忘了要convert syntax 哦

26.清空数组

string a[],b[]

a[1] = '1';a[1] = '2';a[1] = '3'

a = b//即可以清空a

27.只允许修改第n行的name列：

dw_1.modify("name.protect = '1 ~t if((getrow()=n),0,1)'")

28.让run程序和主程序一起关闭：

function ulong findwindowA(...).."user32.dll"

function long setparent(..."user32.dll"

handle = findwindowA(nul,win_title)

setparent(handle,handle(w_main))

29.取得某一天以前或以后n天的函数RelativeDate(date, n)

例：

   取得当天前10天的日期

   RelativeDate(Today(),10)

   取得当天后10天的日期

   RelativeDate(Today(),-10)

30.不想做排序窗口？调用PB自身的好了。

string ls_null

SetNull(ls_null)

dw_1.SetSort(ls_null)

dw_1.Sort()

31.调用PB自身的过滤窗口：

dw_1.SetFilter(ls_null)

dw_1.Filter()

32.增量输入定位代码或名称记录位置：

定义一个窗口，放一个SLE_1，在它的MODIFY程序中写：

long ll_find

string value0

value0=sle_1.text

if not (isnull(sle_1.text) or sle_1.text='') then

    if left(sle_1.text,1)='0' or integer(sle_1.text)<>0 then //输入的为代码

        ll_find=jwl_dmxz.dw_1.find('dm like "'+value0+'%"',1,jwl_dmxz.dw_1.rowcount())//jwl_dmxz为主窗口，dm为查询的字段名，这里是代码。

    else //输入的为名称

        ll_find=jwl_dmxz.dw_1.find('mc like "'+value0+'%"',1,jwl_dmxz.dw_1.rowcount())//

    end if

    if ll_find>0 then

        jwl_dmxz.dw_1.scrolltorow(ll_find)

        //为了避免首次目标记录为第一条，无法选中。

        if ll_find=ll_find0 then 

            jwl_dmxz.dw_1.selectrow(ll_find,true)

        elseif ll_find<>ll_find0 then

            jwl_dmxz.dw_1.selectrow(ll_find,true)

            jwl_dmxz.dw_1.selectrow(ll_find0,false)

            ll_find0=ll_find

        end if

    end if

end if

33.然后在查询窗口中的TIMER事件中写：

timer(0.05)

sle_1.triggerevent(modified!)

34.判断计算器是否存在：

string is_fileExists

boolean is_Exists

is_fileExists='c:/windows/calc.exe'

is_Exists=fileExists(is_fileExists)

if is_Exists then

    run("c:/windows/calc.exe")

else

    messagebox("提示信息","本机的WINDOWS没有计算器！",stopsign!)

end if

35.得到硬盘序例号

String ls_Rootpath, ls_volumnename ,ls_return,softpath

GetCurrentDirectoryA(256,softpath)

softpath=left(softpath,2)

if softpath='C:' then

    ls_Rootpath = 'D:' // 指定要得到序列号的硬盘， 

    // 一般情况都是C盘，除非你能保证用户存在其它逻辑盘或物理盘 

else

    ls_Rootpath = 'C:'

end if

ls_volumnename = Space(256) // 分配足够的空间，下同 

Ulong lul_VolumeNameSize 

lul_VolumeNameSize = 256 

Ulong lul_VolumeSerialNumber, lul_MaximumComponentLength, lul_FileSystemFlags 

lul_MaximumComponentLength = 256 

String ls_FileSystemNameBuffer 

ls_FileSystemNameBuffer = space(256) 

Ulong lul_FileSystemNameSize 

lul_FileSystemNameSize = 256 

int i

long ls_num,ls_gnum,ls_dnum

i=GetVolumeInformation(ls_Rootpath, ls_volumnename, lul_VolumeNameSize, lul_VolumeSerialNumber, lul_MaximumComponentLength, lul_FileSystemFlags, ls_FileSystemNameBuffer, lul_FileSystemNameSize) 

ls_return=string(lul_VolumeSerialNumber)

return ls_return 

************************************************************************************************

1.如何让存储文件目录的列，显示图片? 
答：选择对应的column的display as picture属性为true 

　 

2、如何复制grid类型的所选择的行的数据到系统剪切板？ 

答：string ls_selected 

ls_selected=dw_1.Object.DataWindow.Selected.Data 

clipboard(ls_selected) 

3、如何复制graph风格的datawindow中的图形到剪切板？ 

答：dw_1.clipbord("gr_1") 

4、如何设置的DW底色？ 

在DW的editsource中改变color的值 

5、如何将Grid风格改成自由格式？ 

在DW的editsource中将processing=1的1改为0 

6、要新建一个表A但风格和现有表格B风格一样，怎么将A表快速设置成表B风格？ 

复制B表C，在C表的DW中的editsource中将表名和字段名改成A表的，即可 

7、如何实现gird风格的datawindow的多栏表头？ 

答：添加 text到header带区，并设置band属性为foreground保存，edit source 修改text的x和width属性表达式如下： 

x="100~t integer(describe('firstcol.x')" width="100~tinteger(describe('lastcol.x')) - integer(describe('firstcol.x')) +integer(describe('lastcol.width')) 

8、如何过滤dddw编辑风格的显示值为指定值的记录？ 

答：dw_1.setfilter("lookupdisplay('column_name')='"+ls_display_value_your+"'") 

      dw_1.filter() 

9、如何设置datawindow的某一列为空？ 

答：string ls_temp[] 

        setnull(ls_temp) 

        dw_1. O B J E C T.columnname.primary.current=ls_temp 

10、如何设置datawindow的单双行不同颜色间隔？ 

答：在detail带区的color属性表达式中写上if(mod(getrow(),2)=1 ,rgb(255,0,0),rgb(0,255,0)),如果是当前行以第三种颜色表示，表达式如下：if(getrow()=current(),rgb(255,0,0),if(mod(getrow(),2)=1 ,rgb(0,0,255),rgb(0,255,0))) 

11、如何获取指定名称的datawindow O B J E C T? 

答：DWObject ldwo_use,ldwo_abc 
      ldwo_use = dw_1.Object 
      ldwo_abc = ldwo_use.__get_attribute("t_1",FALSE)//t_1为datawindow中text对象的名称 

12、如何使用datawindow的查询模式？ 

答：dw_1.Object.DataWindow.QueryMode='yes'将datawindow改变为查询模式后，接收用户的输入，再使用一下代码获取结果： 

    dw_1.accepttext() 

    dw_1.retrieve() 

13、如何缩放datawindow的打印大小？ 

答：dw_1. O B J E C T.datawindow.zoom=150 or dw_1. O B J E C T.datawindow.zoom=75 

14、如何在已过滤后的数据基础上对datawindow进行过滤？ 

答：dw_1.setfilter(dw_1.describe("datawindow.table.filter")+your_join+your_new_filter) 

      dw_1.filter() 

15、如何在datawindow中显示动态时间？ 

答：建立一个计算域，表达式为string(datetime(today(),now()),'yyyy年mm月dd日 hh点mm分ss秒'),同时设置datawindow的属性dw_1.Object.DataWindow.Timer_Interval=500 

16、如何让带用title bar的datawindow控件的标题栏诚活动窗口的颜色？ 

答：外部函数定义： 

funcation logn SetActiveWindow(long hwnd )  Library "user32.dll" 

datawindow控件的clicked事件代码： 

setactivewindow(handle(this)) 

17、如何设置datawindow的当前行指示图标？ 

答：在datawindow中建立一个计算列,expression为'',并将该计算列移动为datawindow的第一个列，在datawindow控件的 

rowfocuschanged事件中写入代码： 

SetRowFocusIndicator(hand!)或setrowfucsindicator(p_1)//p_1为窗口上的picture控件名 

18、如何通过代码打开dddw？ 

答：定义外部函数引用声明 

SUBROUTINE keybd_event( int bVk, int bScan, int dwFlags, int dwExtraInfo) LIBRARY "user32.dll" 

代码如下： 
[constant integer VK_F4 = 115 

dw_1.SetFocus() 

dw_1.SetColumn( "dept_head_id" ) //设置当前dddw 

keybd_event( VK_F4,0,0,0 )  // 按下F4键 

keybd_event( VK_F4,0,2,0 )  // 释放F4键 

19、如何打印datawindow的内容到文件中？ 

答： dw_1. O B J E C T.datawindow.print.fileName ="c:/temp.prn" 

        dw_1.print() 

20、如何设置dddw的初始值？ 

答：dw_1. O B J E C T.columnname.Initial="your_initial_value" 

21、如何只显示不同的数据？ 

答：dw_1.filter("isnull(columnname[-1]) and columnname <>columnname[-1]") 

      dw_1.filter() 

22、如何让带有title bar的datawindow不可以移动？ 

答：在datawindow的自定义事件ue_nchittest(pbm_nchittest)中写入如下代码： 

  return 1 

23、如何在N-UP显示风格中建立基于第N栏中的列的计算列？ 

答：如column有两列，number和price ,并显示为两栏，则第一栏的cost计算列的expression为number*price,第二栏的cost_1计算列的expression为number[1]*price[1] 

24、如何清空ddlb或edit.codetable中项目？ 

答：dw_1.Object.columnname.Values="" 

25、如何实现指定的column的字体旋转90度？ 

答：dw_1. O B J E C T.columnname.font.Escapement ="900" 

26、如何获取datawindow的sql代码？ 

答： 可以通过以下四种方法获取sql代码： 

        string szselect 

        szselect=dw_1.describe("datawindow.table.select") 

        szselect=dw_1.describe("datawindow.table.sqlselect") 

        szselect=dw_1.describe("datawindow.table.select.attribute") 

        szselect=dw_1.getsqlselect()      

27、如何获取datawindow对象占有的虚拟存储的容量？ 

答：使用datawindow.storage属性 

    举例：在datawindow控件的retrieverow事件中，写如如下代码： 

            long lstorage 

            lstorage=long(dw_1. O B J E C T.datawindow.storage) 

            if lstorage>50000 then dbcancel() 

28、如何控制打印横向： 

dw_control. O B J E C T.datawindow.print.orientation= 1 


29、如何进行预览： 

dw_control. O B J E C T.datawindow.print.preview = "yes" 

30、如何连续在同一张纸打印两个数据窗口？ 

答：dw_1. O B J E C T.datawindow.print.filename="temp.prn" 

      dw_2. O B J E C T.datawindow.print.filename="temp.prn" 

      dw_1.print() 

      dw_2.print()