作者savagechun (savagechun)
看板Visual_Basic
标题Re: [VBA ] 应该如何更新Combo值?
时间Thu Dec 14 11:32:31 2006
不好意思 附上一小段的程式.
希望大家可以帮我看看. >"< 找出第二次不能正确执行的原因
Private Sub Combo0_Change()
Dim stDocName As String
Dim fun_obj_OpenRecord As DAO.Recordset
CurrentDb.Execute "DELETE FROM 资料表0"
'-------------------------------------------------------'
' 查询条件组合
'-------------------------------------------------------'
stDocName = ""
If Trim(Combo0.Value) <> "" Then
stDocName = stDocName + IIf(Trim(stDocName) <> "", " And ", "") & _
" (栏位1 = '" & Trim(Combo0.Value) & "')"
End If
CurrentDb.Execute "INSERT INTO 资料表0 (栏位1) " & _
" SELECT 栏位1 FROM 总资料表 " & _
IIf(Trim(stDocName) <> "", " WHERE " & Trim(stDocName), "") & _
" GROUP BY 栏位1"
Set fun_obj_OpenRecord = CurrentDb.OpenRecordset("SELECT * FROM 资料表0 ")
fun_obj_OpenRecord.Close
DoCmd.GoToControl ("Combo2")
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 202.39.173.66