filter = "日期 = #" & cgdr("日期") & ''# And 号码 = '" & cgdr("号码") & "'" lydr = DataTables("录音").Find(filter) If lydr IsNot Nothing Then cgdr("时间") = lydr("时间") cgdr("录音大小") = lydr("录音大小") End If End If End If
这样试试