刘小军的组合框集锦

sgrshh29

刘小军的组合框集锦
[ 本帖最后由 cuxun 于 2008-1-13 05:35 编辑 ]

wang1950317

非常感谢！先下载再慢慢看。

wang1950317

sgrshh29老师：已搞定，绑定到数据源也是可以的。谢谢你的指点。组合框（生产单位）更新后事件代码：Private Sub 生产单位_AfterUpdate()

On Error GoTo Err_生产单位_AfterUpdateDim strqc As String

    Dim rst As Recordset

    Set rst = CurrentDb.OpenRecordset("SELECT * FROM 水质生产单位 WHERE [名称] Like '" & "*" & a & "*" & "';")

    Me.生产单位 = rst![名称]

    rst.Close

    Set rst = Nothing

    strqc = "SELECT 水质生产单位.名称 FROM 水质生产单位 WHERE [名称] Like '" & "*" & a & "*" & "';"

    Me.生产单位.RowSource = strqc

    Me.生产单位.Requery

Exit_生产单位_AfterUpdate:

  Exit Sub

Err_生产单位_AfterUpdate:

  Resume Exit_生产单位_AfterUpdate

   

End Sub

yori2007

:)

lxn709394

非常感谢！先下载再慢慢看。

liaug

非常感谢，先收下了

xymiss

厉害,还可以这样用的

yyjlili

研究一下

gllhj

下来学习学习。

blesseye

此贴太强大，需载下来学习膜拜！[:27]