//控制DATAWINDOW里每页显示的行数 1、在Datawindow中增加一个计算域,起名为:ceil_page,此计算域必须放在Detail段中, Expression中输入 ceiling(getrow()/25) 25表示每页打印25行,也可以是一个参数。 2、分组,选择菜单Rows\Create Group,选择ceil_page 按ceil_page分组,并选中New Page On Group Break(意思是新组开始时换页)。 3、将此计算域设为隐藏(在属性页中的expression页中在visible属性中写0)。 4、补空行: 在窗口的open事件中写如下代码: long li_count,li_i li_count=dw_1.retrieve() if mod(li_count,25)<>0 then for li_i=1 to 25 - mod(li_count,25) dw_1.insertrow(0) next end if |
//数据窗口的closeQuery事件:提示保存数据 dw_1.AcceptText() IF dw_1.ModifiedCount() + dw_1.DeletedCount() > 0 THEN CHOOSE CASE MessageBox("操作提示","数据已经发生变化,是否保存?",Question!,YesNoCancel!,1) CASE 1 cb_save.TriggerEvent(clicked!) CASE 2 Return 0//不做任何操作直接关闭窗口 CASE 3 Return 1//不会运行Close Event,维持原来的情况 END CHO |