请大家帮助修改一下黄海老师做的万能查询系统：

xinrenq

我改的是 【frmEditSQLOLD20121009】窗体

yanwei82123300

xinrenq 发表于 2016-6-24 16:31
我改的是 【frmEditSQLOLD20121009】窗体

谢谢，但是字段名列表框没有了，必须用

xinrenq

帮你改好了。

yanwei82123300

xinrenq 谢谢您的帮助，

yanwei82123300

xinrenq 老师，您看看一下这个例子的另外一种窗体放置方法，另外一个老师只完成了一部分，请您受累帮助修改一下，右侧的命令功能，全部不能够使用了，请完善一下谢谢

风中漫步

这个做什么用?

wx0000888

1. Private Sub getTablesListing()
   
2.     Dim strTables As String
   
3.     Dim I As Integer
   
4.     For I = 0 To CurrentDb.TableDefs.Count - 1
   
5.         If Left(CurrentDb.TableDefs(I).Name, 4) <> "MSys" Then
   
6.             strTables = strTables & CurrentDb.TableDefs(I).Name & ";" & "表" & ";"
   
7.         End If
   
8.     Next
   
9.     For I = 0 To CurrentDb.QueryDefs.Count - 1
   
10.         strTables = strTables & CurrentDb.QueryDefs(I).Name & ";" & "查询" & ";"
    
11.     Next
    
12.     If Len(strTables) Then
    
13.         strTables = Left(strTables, Len(strTables) - 1)
    
14.         Me.ListTables.RowSource = strTables
    
15.     End If
    
16. End Sub
    

复制代码

把ListTables  列数设成两列.

1. Private Sub ListTables_AfterUpdate()
   
2.     On Error GoTo Err_ListTables
   
3.     Dim strFields As String
   
4.     Dim strFields1 As String
   
5.     Dim rst As Recordset
   
6. <p>    Dim I As Integer</p><p>
   
7. </p><p>    Me.ComboFields.RowSource = ""</p><p>    Me.List29.RowSource = ""
   
8. </p>    Set rst = CurrentDb.OpenRecordset(Me.ListTables)
   
9.     For I = 0 To rst.Fields.Count - 1
   
10.         '11     OLE 对象,二进制字段
    
11.         If rst.Fields(I).Type <> 11 Then
    
12.             strFields = strFields & rst.Fields(I).Name & ";" & rst.Fields(I).Type & ";"
    
13.             strFields1 = strFields1 & rst.Fields(I).Name & ";"
    
14.         End If
    
15.     Next
    
16.     If Len(strFields) Then
    
17.         strFields = Left(strFields, Len(strFields) - 1)
    
18.     End If
    
19.     Me.ComboFields.RowSource = strFields
    
20.     Me.List29.RowSource = strFields1
    
21.     Me.ListTables.ControlTipText = Me.ListTables
    
22. 
    
23. Exit_ListTables:
    
24.     Set rst = Nothing
    
25.     Exit Sub
    
26. 
    
27. Err_ListTables:
    
28.     If Err.Number <> 3078 Then MsgBox Error
    
29.     Resume Exit_ListTables
    
30. 
    
31. End Sub
    

复制代码

代码优化加快速度

把附件传上来, 至于楼主的要求或达到什么目的俺实在没看懂其意思, 不知从何帮起. ....

yanwei82123300

wx0000888 谢谢您的帮助！看看能否例子完善一下！