Office中国论坛/Access中国论坛

标题: 用户定义类型未定义，请求帮助 [打印本页]

作者: sh.tanwei 时间: 2009-12-9 15:50
标题: 用户定义类型未定义，请求帮助
Private Sub 产品编号_LostFocus()
On Error GoTo err_产品编号_lostfocus:
Dim rs As ADODB.Recordset
Dim strtemp As String
Dim i As Integer
Set rs = New ADODB.Recordset
strtemp = "select * from 产品资料"
rs.Open strtemp, CurrentProject.Connection, adopenkeyset, adlockbatchoptimistic
rs.MoveFirst

For i = 1 To rs.RecordCount
  If rs("产品编号") = Me.产品编号 Then
   Me.产品名称 = rs("产品名称")
   Exit Sub
Else
   rs.MoveNext
End If
Next i
Set rs = Nothing
exit_产品编号_lostfocus:
Exit Sub
err_产品编号_lostfocus:
MsgBox Err.Description
Resume exit_产品编号_lostfocus

End Sub

作者: koutx 时间: 2009-12-9 19:37
将第2行暂标为注释
Private Sub 产品编号_LostFocus()
'On Error GoTo err_产品编号_lostfocus:
这样在出错时会高亮显示造成错误的语句.

作者: sh.tanwei 时间: 2009-12-12 08:19
谢谢，我试试

作者: sh.tanwei 时间: 2009-12-12 08:23
我以上面VB定义，怎么在窗体里面不会自动显示物料编号

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)