Office中国论坛/Access中国论坛

标题: 请帮助看看黄海老师做的万能查询例子，看看能否进行拓展，谢谢 [打印本页]

作者: yanwei82123300 时间: 2017-5-23 15:20
标题: 请帮助看看黄海老师做的万能查询例子，看看能否进行拓展，谢谢
请帮助看看黄海老师做的万能查询例子，看看能否进行拓展，谢谢
我想将左侧的字段名列表控件中的值通过双击，或者拖拉到右侧的条件语句文本控件光标所在的位置，请各位老师看看是否能够做的？
目的是减少键盘的输入，谢谢

作者: hongyepiaofei 时间: 2017-5-23 15:23
正在学习中……

作者: GGMM 时间: 2017-5-23 15:55
不错的列子

作者: Henry D. Sy 时间: 2017-5-23 16:51
是不是双击字段名列表中的字段名，自动把字段名加入到选择字段组合框？

作者: yanwei82123300 时间: 2017-5-23 19:11
老师是的，将需要的字段通过点击，或者拖动来选取字段，谢谢

作者: 0520john 时间: 2017-5-24 08:38
学习

作者: Henry D. Sy 时间: 2017-5-24 15:34

yanwei82123300 发表于 2017-5-23 19:11
老师是的，将需要的字段通过点击，或者拖动来选取字段，谢谢

在字段列表框双击事件
直接赋值即可

作者: yanwei82123300 时间: 2017-5-24 16:21

Henry D. Sy 发表于 2017-5-24 15:34
在字段列表框双击事件
直接赋值即可

Henry D. Sy ,请您帮助修改一下例子可以吗？谢谢

作者: Henry D. Sy 时间: 2017-5-24 18:18

yanwei82123300 发表于 2017-5-24 16:21
Henry D. Sy ,请您帮助修改一下例子可以吗？谢谢

是不是这个意思

Private Sub List29_DblClick(Cancel As Integer)
If Not IsNull(Me.List29) Then
Me.ComboFields = Me.List29
End If
End Sub

复制代码

作者: yanwei82123300 时间: 2017-5-24 19:03
谢谢，我试一下

作者: yanwei82123300 时间: 2017-5-25 07:49
Henry D. Sy 老师我想将字段双击到TextWhere这个控件中去（条件词句:），您受累看看，谢谢

作者: Henry D. Sy 时间: 2017-5-25 19:25

yanwei82123300 发表于 2017-5-25 07:49
Henry D. Sy 老师我想将字段双击到TextWhere这个控件中去（条件词句:），您受累看看，谢谢

那是显示查询语句的地方
你这个要求有意义吗?

Private Sub List29_DblClick(Cancel As Integer)
If Not IsNull(Me.List29) Then
Me.TextWhere = Me.List29
End If
End Sub

复制代码

作者: yanwei82123300 时间: 2017-5-26 10:26

Henry D. Sy 发表于 2017-5-25 19:25
那是显示查询语句的地方
你这个要求有意义吗?

老师谢谢您的帮助，但是有问题，我的里面有语句了，只是在语句相应的位置添加新的字段，双击后新字段却将这个语句都覆盖了，请您看看能否做到双击新字段时候原来语句不动，谢谢

作者: Henry D. Sy 时间: 2017-5-26 17:03
Me.TextWhere =Me.TextWhere & " " & Me.List29
觉得你想法是越高越复杂

作者: yanwei82123300 时间: 2017-5-26 20:42
谢谢老师我想错了，谢谢您的回答

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)