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


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

主题：请教关于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

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


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

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

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


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

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

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


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

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

 回到顶部
帅哥哟，离线，有人找我吗？
qq864729713
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
qq864729713
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
qq864729713
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：143 积分：992 威望：0 精华：0 注册：2013/3/27 9:51:00 		  发帖心情 Post By：2014/4/11 0:19:00 [显示全部帖子]

是的， 经过指导， 没这种情况了， 不过不显示任何东西，空白了， 

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


加好友 发短信
等级：幼狐 帖子：143 积分：992 威望：0 精华：0 注册：2013/3/27 9:51:00 		  发帖心情 Post By：2014/4/14 9:58:00 [显示全部帖子]

谢谢你， 可以了， 我想问一下， 如果我设置这个douleclick之后， 我还想在这个表格直接输入可以吗？ 就是这个douleclick，没有我要的数据， 我需要自己再重新打上去。需要怎么弄呢

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


加好友 发短信
等级：幼狐 帖子：143 积分：992 威望：0 精华：0 注册：2013/3/27 9:51:00 		  发帖心情 Post By：2014/4/14 9:58:00 [显示全部帖子]

谢谢， 

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


加好友 发短信
等级：幼狐 帖子：143 积分：992 威望：0 精华：0 注册：2013/3/27 9:51:00 		  发帖心情 Post By：2014/4/14 9:58:00 [显示全部帖子]

谢谢

 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 6 次数据查询