帮我看看这个程序怎么老是提示类型错啊

eastport

帮我看看这个程序怎么老是提示类型错啊


Dim kucun As Integer, no_chuku As Integer, hetong As String, chanp As String, he_chan As String

kucun = DLookup("[尚需发数量]", "wx_slkz", "[合同号]= '" & Me![合同号] & "'" And "[产品编号]='" & Me![产品编号] & "'")
           
If no_chuku > kucun * 1.1 Then
MsgBox "此产品发出的数量超过合同所需10%啦，还要坚持出库吗!", vbOKOnly, "外协业务"
End If

End Sub

ququ

http://www.office-cn.net/Article_Show.asp?ArticleID=341


字符型和整型别搞错

[此贴子已经被作者于2004-3-1 14:28:22编辑过]

Fbeter

改成这样试试 :
If no_chuku >CInt( kucun )* 1.1

eastport

我就是按这文章的，但不知那里出错了

Fbeter

没这么难吧， 把那程序隔离出来贴上来看看

[此贴子已经被作者于2004-3-1 15:25:08编辑过]

jzwwpp

用nz函数试试，，