dw_1.object.datawindow.print.preview              = "yes"　　//打印预览dw_1.object.datawindow.print.preview.zoom   = 25　//打印预览时的百分比大小dw_1.object.datawindow.print.margin.top　    = 100　 //上页边距1厘米dw_1.object.d

// 得到数据窗口中计算列的值IF dw_1.Describe(column_name + .type) = compute  THEN    ls_value = dw_1.Describe("Evaluate(" + dw_1.Describe(column_name + .expression) + ","+string(row)+")")END IF

//线在每页的最后一行才返回1, 否则返回0IF(GetRow() = Long(Describe("datawindow.LastRowOnPage")),1,0)

1、简单一点的方法，先用一张大背景图放在WINDOW上，再用DW正好遮挡住的那部分图当作DATAWINDOW的背景图，且将该图置在DW的最底层，同时设各列的背景色为透明即可；该方法优点是比较简单，缺点是只适用于DW，其他控件不适用，如：LABEL、TEXT、COMMANDBUTTON等；2、麻烦一点的方法，用API的BITBLT，缺点是比较麻烦，优点是适用于绝大部分控件，效果图 本

首先声明外部函数： Subroutine keybd_event(int bVk,int bScan,ulong dwFlags,ulong dwExtraInfo) LIBRARY "user32.dll"  一、如果不想在DW的单元格内利用左右键编辑内容，只要一按下左右键就切换到其他单元格的话可以： 新建ue_key 对应 pbm_dwnkey ，代码如下： if key=ke

 1、首先将DW属性中的Column Moving 和Mouse Selection 两项取消选中；2、在 DW 的Clicked 事件中写代码：    //此处声明所用到的相关变量；      long  ll_curcol,ll_pos,ll_cols    string  ls_modstring,ls_colname,ls_color_1,ls_color_2,ls

string ls_modstring,ls_rows[]long ll_row,ll_col,ll_posfor ll_pos = 1 to long(dw_1.object.datawindow.column.count)    ls_rows[ll_pos] = ""next dw_1.setredraw(false) //假设此处要修改第2行、第1列ll_row

 实例变量:String is_old_VPositionString is_old_HPosition 数据窗口 RetrieveStart 事件:// 保存原始位置is_old_VPosition = THIS.Describe("DataWindow.VerticalScrollPosition") is_old_HPosition = THIS.Descri

//设置数据窗口中的数据显示格式dw_1.Modify("column_name.EditMask.Mask=###,###,###,###,###.00")dw_1.Modify("column_name.Edit.Format=##########0.00")dw_1.Modify("column_name.Format=##########0.00")// 数值型

dw_1.Modify("create compute(band = header.1" +&" color = 0 "+&" alignment  = 1 "+&" border = 0 "+&" height.autosize = No "+&" pointer = Arrow! "+&" moveable = 0 "+&" resizeable =

// 得到下拉数据窗口某列第n行的值dw_1.Describe ( "Evaluate(LookupDisplay(column_name),n)" ) // dw_1为下拉数据窗口

// 改变detail区的高度dw_1.Modify("DataWindow.detail.Height=200")// 合计区dw_1.Modify("DataWindow.summary.Height=64")

dw_column.Modify("datawindow.table.select=~""+ls_sql+"~"") // ls_sql为完整的sql语句

dw_1.object.columnName.initial = "values" //设列初值

// 列名，列名对应的TEXT文本dw_1.Describe("#"＋string(列号)＋".name") = ColumnName // i 为列号dw_1.Describe(ColumnName ＋ "_t.text")     = ColumnName_Texttab_no      = integer(dw_find.describe("#"+ string(i)+".tabsequ

// 数据窗口动态下拉列表dw_1.modify("列名.ddlb.AllowEdit = Yes")dw_1.modify("列名.values = 是~t是/否~t否/无~t9")// 如果你不允许allowedit,然后你再写一句dw_1.modify("列名.ddlb.AllowEdit = No") 

dw_1.Describe("DataWindow.VerticalScrollPosition") // 得到滚动条位置dw_1.DataWindow.VerticalScrollPosition = 100            // 设置位置　

// 数据窗口总列数dw_1.Object.DataWindow.Column.Count          = ColCount  dw_1.Describe("DataWindow.Column.Count") = ColCount

/* 动态设置某列为下拉数据窗口 *//* * d_dddw_dep 数据窗口对象名称 * dept_name  列名 * dept_id    列名*/dw_1.Modify("department_id.DDDW.Name=d_dddw_dep ")dw_1.Modify("department_id.DDDW.DisplayColumn=dept_name ")dw_1.Modify("