武林高手、PB教练请现身(如何DataWindow中的按钮加添事件)

retow 2001-10-06 02:18:28
各位高手请现身:问:如何在PB中的DataWindow中的按钮加添事件,如打开另外窗口或是单击Datawindow中的子datawindows弹出新窗口提示信息等?(事件、脚本应如何写)...小菜虫敬上。
...全文
205 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
pengdesheng 2001-10-07
  • 打赏
  • 举报
回复
如果是数据窗口可用楼上的方法解决,如果是DDDW就麻烦一点

*
新建数据窗口事件如ue_event,事件ID为pbm_command
事件ID
2048 //子数据窗口中的行焦点发生变化
1281 //子数据窗口中的点击事件
2314 //子数据窗口中的右键单击
2311 //子数据窗口中的鼠标移动
2313 //左键UP
769 //子数据窗口检索结束
2339 //PageDown/PageUp键按下
*/
DataWindowChild ldw_my
String ls_object,ls_temp
Long ll_dddw,ll_event//ll_dddw指明操作的子数据窗口,ll_event指明触发的事件

ll_dddw = Message.LongParm//由LongParm获得操作的子数据窗口
ll_event = Message.WordParm//由WordParm获得触发的事件ID

GetChild( "c_uname", ldw_my )//获得指定列的子数据窗口

if intlow(ll_dddw) = handle(ldw_my) then
if IntHigh(ll_event) = 1281 then//1281为鼠标单击事件ID
ls_object = ldw_my.GetObjectAtPointer()
ls_temp = left(trim(ls_object),3)
Choose case ls_temp
case "b_1" //如果是增按钮
messagebox("提示","添加数据")
case "b_2"
messagebox("提示:","编辑数据")
Case "b_3"
messagebox("提示:","哈哈~~")
End choose
End if
End if

「已注销」 2001-10-06
  • 打赏
  • 举报
回复


没错

别忘记取个好记的name给该按钮

@_@
whitegourd 2001-10-06
  • 打赏
  • 举报
回复
ok
nicho 2001-10-06
  • 打赏
  • 举报
回复
同意楼上!
datawindow控件中有buttonclicked事件
通过dwo.name判断
咚咚咚咚咚咚 2001-10-06
  • 打赏
  • 举报
回复
datawindow的buttonclicked事件
用dwo判断是那个按钮

609

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder DataWindow
社区管理员
  • DataWindow社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧