PB实现数据窗口中checkbox的点选

原创 2015年07月10日 15:39:52

数据窗口中checkbox有时候点了却不打勾,是因为数据窗口的taborder值的问题,解决办法就是修改为0,代码控制完成。
数据窗口clicked事件

//在窗口的实例变量定义:long il_LastSelectedRow = 1

long ll_Start
long ll_End
long ll_index
long ll_selectrow

if Row < 1 then return

//if KeyDown(KeyControl!) then
//  if This.IsSelected(Row) then
////        This.SelectRow(Row,False)
//      This.object.ls_select[Row] = '0'
//  else
////        This.SelectRow(Row,True)
//      This.object.ls_select[Row] = '1'
//  end if
if KeyDown(KeyShift!) then
    if Row < il_LastSelectedRow then
        ll_Start = Row
        ll_End = il_LastSelectedRow
    else
        ll_Start = il_LastSelectedRow
        ll_End = Row
    end if

//  This.SelectRow(0,False)
    //取消所有选择
//  For ll_selectrow = 1 to this.rowcount()
//      This.object.ls_select[ll_selectrow] = '0'
//  Next
    //重新选择
    For ll_index = ll_Start to ll_End
        This.object.ls_select[ll_index] = '1'
    next
else
    if This.object.ls_select[Row] = '1' then
        This.object.ls_select[Row] = '0'
    else
        This.object.ls_select[Row] = '1'
    end if
//  if Not This.IsSelected(Row) then
//      This.SelectRow(0,False)
//      This.object.ls_select[Row] = '0'
//      This.SelectRow(Row,True)
//      This.object.ls_select[Row] = '1'
//  end if
end if

il_LastSelectedRow = Row

//带参数的自定义事件执行
cb_4.Trigger Event ue_selectcount('row_count')
//cb_4.TriggerEvent('ue_selectcount','row_count')

按钮cb_4自定义事件

//*********************************************************
// 调用:cb_4.Trigger Event ue_selectcount('row_count')
// 返回值类型:long
// 参数:ue_flag  string
//
//*********************************************************
long ll_selectcount,ll_row
ll_selectcount = 0
For ll_row = 1 to dw_1.rowcount()
    If dw_1.object.ls_select[ll_row] = '1' then
        ll_selectcount += 1
//      string ls_b5
//      ls_b5 = dw_1.object.b_5[ll_row]
//      messagebox('',ls_b5)
    End if
Next
choose case ue_flag
    case 'row_count'
        sle_1.text = '符合条件的项目为:' +string(dw_1.rowcount()) + '条,选择打印:' + string(ll_selectcount) + '条'
//  case 'row_print'
//      sle_1.text = '系统打印进度:' + string(ll_selectount) + '/' + string(dw_1.rowcount()) + ',正在打印项目:' + ls_b5
end choose

return ll_selectcount
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

PB数据窗口对象之字段操作

数据窗口对象的字段操作 ---------- 字段的编辑类型 PB提供了六种编辑类型: 1)Edit是字段的缺省编辑类型,可以用于所有类型的字段上。 2)CheckBox编辑类型在这里是一种...

实现当TreeView中父节点的CheckBox的点选状态改变时,回发服务器端,并且选中父节点,所有子节点全选中

实现当TreeView中父节点的CheckBox的点选状态改变时,回发服务器端,并且选中父节点,所有子节点全选中...

Android中CheckBox的点选实现

.xml android:id="@+id/chackBox" android:layout_width="wrap_content" android:layout_height="wrap_co...

如何用jquery实现checkbox点选一个选中其他,取消一个取消其他

用jquery实现,选中一个特定的checkbox,则其他checkbox都选中,不选中这个特定的checkbox,则其他checkbox也不选中 首先要导入jquery.js 这是我碰到了 jq...
  • wyxz126
  • wyxz126
  • 2013年02月07日 11:52
  • 5207

实现checkbox的全选/全不选/点选/行内点选(js版)

 日常项目中, 对于列表类文章或数据, 大概都会用到checkbox的全选或全不选的功能, 以前的项目中也写过checkbox的选择js, 但都没有整理过. 正好前几天一个兄弟遇到了这个问题, 索性,...
  • tanhgm
  • tanhgm
  • 2011年03月13日 21:43
  • 305

PB中用数据窗口实现画图

  • 2011年04月26日 22:06
  • 2KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:PB实现数据窗口中checkbox的点选
举报原因:
原因补充:

(最多只允许输入30个字)