- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教关于doubleclick的问题， 谢谢 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49022)
-- 发布时间：2014/4/10 18:39:00
-- 请教关于doubleclick的问题， 谢谢
窗口表事件
添加订购单位_客户表_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 & "*\'"
-- 发布时间：2014/4/10 18:43:00
--
错误提示？
-- 发布时间：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
-- 发布时间：2014/4/10 22:28:00
--
谢谢你， 我尝试一下， 看行不行，
-- 发布时间：2014/4/10 23:22:00
--
按照你的方法， 错误时没了， 但是双击的时候没反应？
-- 发布时间：2014/4/10 23:38:00
--
按照你的方法， 错误时没了， 但是双击的时候没反应？
双击的时候，没有反应，是因为没有数据，没有数据就把窗口关了吧。
If Tables("订单主表.客户表").current IsNot Nothing AndAlso e.Table.current IsNot Nothing Then
Tables("订单主表.客户表").current("客户名称")= e.Table.current("客户名称")
End If
Forms("添加订购单位").close
-- 发布时间：2014/4/10 23:44:00
--
有数据的啊。 但是就是没反应
-- 发布时间：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:53:00
--
再重新试了一下， 反应是有了， 但是就是空白， 不显示东西
你把例子上传上来吧。
-- 发布时间：2014/4/11 0:05:00
--
麻烦你了，
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |