请帮助看看黄海老师做的万能查询例子，看看能否进行拓展，谢谢

Henry D. Sy

是不是双击字段名列表中的字段名，自动把字段名加入到选择字段组合框？

Henry D. Sy

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

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

Henry D. Sy

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

是不是这个意思

1. Private Sub List29_DblClick(Cancel As Integer)
   
2.     If Not IsNull(Me.List29) Then
   
3.         Me.ComboFields = Me.List29
   
4.     End If
   
5. End Sub

复制代码

Henry D. Sy

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

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

1. Private Sub List29_DblClick(Cancel As Integer)
   
2.     If Not IsNull(Me.List29) Then
   
3.         Me.TextWhere = Me.List29
   
4.     End If
   
5. End Sub

复制代码

Henry D. Sy

Me.TextWhere =Me.TextWhere & " " & Me.List29
觉得你想法是越高越复杂