作者: zhgc 时间: 2019-5-25 17:45
Public Sub showpver()
Dim strsql As String Dim RS As Recordset
strsql = "select * from SMT.C_PRODUCT_CONFIG where P_NO = '" & Me.cmbproduct.Text & "'" Set RS = cn.Execute(strsql)
Me.cmbpver.Clear Do While Not RS.EOF
Me.cmbpver.AddItem RS!p_version RS.MoveNext
Loop
If Me.cmbpver.ListCount = 1 Then
Me.cmbpver.Text = Me.cmbpver.List(0)
showpdesc Me.cmbproduct.Text, Me.cmbpver.Text
Else
Me.txtpdesc = ""
End If RS.Close Set RS = Nothing