Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教关于doubleclick的问题， 谢谢


  共有4991人关注过本帖树形打印复制链接

主题：请教关于doubleclick的问题， 谢谢
帅哥哟，离线，有人找我吗？
qq864729713
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：143 积分：992 威望：0 精华：0 注册：2013/3/27 9:51:00 		请教关于doubleclick的问题， 谢谢  发帖心情 Post By：2014/4/10 18:39:00 [只看该作者]

窗口表事件

 

添加订购单位_客户表_DoubleClick

 

Tables("订单主表.客户表").current("客户名称")= e.Table .current("客户名称")

 

Forms("添加订购单位").close

 

窗口与控件事件

 

添加订购单位_AfterLoad

 

Tables("添加订购单位_客户表").sort ="客户名称"

 

添加订购单位_查询_Click

 

Dim khmc As WinForm.TextBox = e.Form.Controls("客户名称")

Dim sf As WinForm.ComboBox = e.Form.Controls("省份")

Dim xm As WinForm.TextBox = e.Form.Controls("姓名")

Tables("添加订购单位_客户表").filter = "客户名称  like '*" & khmc.text & "*' and 省份 like '*" & sf.text & "*' and 姓名 like '*" & xm.text & "*'"

 

 









Tables("订单主表.客户表").current("客户名称")= e.Table .current("客户名称")

Forms("添加订购单位").close

这样子，打开表格后， 想双击选择该数据， 显示错误代码，
 回到顶部
帅哥哟，离线，有人找我吗？
有点酸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00 		  发帖心情 Post By：2014/4/10 18:43:00 [只看该作者]

错误提示？

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/4/10 20:48:00 [只看该作者]

使用前，判断一下表是否为空

 

If Tables("订单主表.客户表").current IsNot Nothing AndAlso e.Table.current IsNot Nothing Then
    Tables("订单主表.客户表").current("客户名称")=  e.Table.current("客户名称")
    Forms("添加订购单位").close
End If
 回到顶部
帅哥哟，离线，有人找我吗？
qq864729713
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：143 积分：992 威望：0 精华：0 注册：2013/3/27 9:51:00 		  发帖心情 Post By：2014/4/10 22:28:00 [只看该作者]

谢谢你， 我尝试一下， 看行不行， 图片点击可在新窗口打开查看图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
qq864729713
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：143 积分：992 威望：0 精华：0 注册：2013/3/27 9:51:00 		  发帖心情 Post By：2014/4/10 23:22:00 [只看该作者]

按照你的方法， 错误时没了， 但是双击的时候没反应？

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/4/10 23:38:00 [只看该作者]

以下是引用qq864729713在2014-4-10 23:22:00的发言：
按照你的方法， 错误时没了， 但是双击的时候没反应？

 

双击的时候，没有反应，是因为没有数据，没有数据就把窗口关了吧。

 

If Tables("订单主表.客户表").current IsNot Nothing AndAlso e.Table.current IsNot Nothing Then
    Tables("订单主表.客户表").current("客户名称")=  e.Table.current("客户名称")

End If

 

Forms("添加订购单位").close

 
 回到顶部
帅哥哟，离线，有人找我吗？
qq864729713
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：143 积分：992 威望：0 精华：0 注册：2013/3/27 9:51:00 		  发帖心情 Post By：2014/4/10 23:44:00 [只看该作者]

有数据的啊。 但是就是没反应

 回到顶部
帅哥哟，离线，有人找我吗？
qq864729713
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：143 积分：992 威望：0 精华：0 注册：2013/3/27 9:51:00 		  发帖心情 Post By：2014/4/10 23:46:00 [只看该作者]

再重新试了一下， 反应是有了， 但是就是空白， 不显示东西

窗口表事件

 

添加订购单位_客户表_DoubleClick

 

If Tables("订单主表.客户表").current IsNot Nothing AndAlso e.Table.current IsNot Nothing Then

    Tables("订单主表.客户表").current("客户名称")=  e.Table.current("客户名称")

End If

Forms("添加订购单位").close

 

窗口与控件事件

 

添加订购单位_AfterLoad

 

Tables("添加订购单位_客户表").sort ="客户名称"

 

添加订购单位_查询_Click

 

Dim khmc As WinForm.TextBox = e.Form.Controls("客户名称")

Dim sf As WinForm.ComboBox = e.Form.Controls("省份")

Dim xm As WinForm.TextBox = e.Form.Controls("姓名")

Tables("添加订购单位_客户表").filter = "客户名称  like '*" & khmc.text & "*' and 省份 like '*" & sf.text & "*' and 姓名 like '*" & xm.text & "*'"

 

[此贴子已经被作者于2014-4-10 23:51:46编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/4/10 23:53:00 [只看该作者]

以下是引用qq864729713在2014-4-10 23:46:00的发言：
再重新试了一下， 反应是有了， 但是就是空白， 不显示东西

 

你把例子上传上来吧。
 回到顶部
帅哥哟，离线，有人找我吗？
qq864729713
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：143 积分：992 威望：0 精华：0 注册：2013/3/27 9:51:00 		  发帖心情 Post By：2014/4/11 0:05:00 [只看该作者]

麻烦你了，
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip

[此贴子已经被作者于2014-4-11 0:06:31编辑过]
 回到顶部
总数 21 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询