strSQL3 = "select count(*) as count3 from 支柱表, 结果表 where 支柱表.支柱编号=结果表.支柱编号 and 结果表.拉出值/支柱表.拉出值>=1.5"
Set myrs3 = mycon.Execute(strSQL3)
lcz = myrs3("count3") * (-10)
y2 = lcz
Else
y2 = 0
===================================
执行后,对这句话(Set myrs3 = mycon.Execute(strSQL3))的报错是
实时错误,'-2147217904(80040e10)':
[microsoft][ODBC Microsoft Access drive]参数不足,期待是1.
该怎么纠正呢?谢谢
Set myrs3 = mycon.Execute(strSQL3)
lcz = myrs3("count3") * (-10)
y2 = lcz
Else
y2 = 0
===================================
执行后,对这句话(Set myrs3 = mycon.Execute(strSQL3))的报错是
实时错误,'-2147217904(80040e10)':
[microsoft][ODBC Microsoft Access drive]参数不足,期待是1.
该怎么纠正呢?谢谢
mycon.Execute(strSQL3,1, adCmdText+ adExecuteNoRecords )
==============
If Check7.Value = 1 Then
strSQL4 = "select count(*) as count4 from 结果 where 磨耗>0.4"
strSQL5 = "select count(*) as count5 from 结果 where 磨耗>=0.3 and 磨耗<=0.4"
Set myrs4 = mycon.Execute(strSQL4)
Set myrs5 = mycon.Execute(strSQL5)
mh4 = myrs4("count4") * (-10)
mh5 = myrs5("count5") * (-6)
y3 = mh4 + mh5
Else
y3 = 0
End If
把第一句改成这样试试strSQL3 = "select count(支柱表.*) as count3 from 支柱表, 结果表 where 支柱表.支柱编号=结果表.支柱编号 and 结果表.拉出值/支柱表.拉出值>=1.5"
或
strSQL3 = "select count(结果表.*) as count3 from 支柱表, 结果表 where 支柱表.支柱编号=结果表.支柱编号 and 结果表.拉出值/支柱表.拉出值>=1.5"
主要看你要那个表中的数据了