这段代码的意思

'cb表查询组合框更新后事件，动态读取选定的表或查询的字段名作为查询条件：

Private Sub cb表查询_AfterUpdate()

'定义循环变量

Dim i As Integer

'如果组合框内容不为空才执行下面代码
If Not IsNull(cb表查询) Then

'清空lst显示字段列表框内容
  lst显示字段.RowSource = ""

'如果fra范围 = 1，cb表查询组合框显示的是表名称
  If fra范围 = 1 Then

'循环读取组合框指定的表的字段名称作为字段选择列表框的行来源
    For i = 0 To CurrentDb.TableDefs(cb表查询).Fields.Count - 1
      lst显示字段.RowSource = lst显示字段.RowSource & CurrentDb.TableDefs(cb表查询).Fields(i).Name & ";"
    Next i

'否则，cb表查询组合框显示的是查询名称
  Else

'循环读取组合框指定的查询包含的全部字段名称作为字段选择列表框的行来源
    For i = 0 To CurrentDb.QueryDefs(cb表查询).Fields.Count - 1
      lst显示字段.RowSource = lst显示字段.RowSource & CurrentDb.QueryDefs(cb表查询).Fields(i).Name & ";"
    Next i
  End If

'子窗体[chd条件]中的[字段名]组合框(或列表框)的行来源等于lst显示字段列表框的行来源
  Me![chd条件].Form!字段名.RowSource = lst显示字段.RowSource
End If

End Sub