求助，如何筛选符合条件的字段名

roych

1. Sub test()
   
2. Dim rst As DAO.Recordset
   
3. Dim i As Long
   
4. Dim fn As String
   
5. Dim qry As DAO.QueryDef
   
6. 
   
7. On Error Resume Next
   
8. Set qry = CurrentDb.CreateQueryDef("你的查询")
   
9. Set rst = CurrentDb.OpenRecordset("你的表")
   
10. For i = 0 To rst.Fields.Count - 1
    
11.     If rst(i).Name Like "*" & "你的条件" & "*" Then
    
12.         fn = fn & ",[" & rst(i).Name & "]"
    
13.     End If
    
14. Next
    
15. qry.SQL = "select " & Right(fn, Len(fn) - 1) & " from 你的表"
    
16. End Sub
    

复制代码

试试吧。这种事情是由于表设置本身的问题，应该从源头上解决问题，而不是靠代码来完成。而且，作为新手，建议不要膜拜代码，而是脚踏实地地从表、字段设置等等开始。代码只是正常情况下做不到时才采用的补充手段。

dsz5142

roych 发表于 2014-12-19 14:38
试试吧。这种事情是由于表设置本身的问题，应该从源头上解决问题，而不是靠代码来完成。而且，作为新手， ...

基础的我都没有问题，现在这个问题的原因是表的结构不受我控制，没有办法
谢谢解答