 、
Function 单价太贵() As Boolean '若有一条单价大于5000，则单价太贵为真，反之为否
Dim strSQL As String
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = CurrentProject.Connection
strSQL = "Select * FROM [采购订单明细表] Where [采购订单号]=" & SQLText(Me.sfrList!采购订单号)
Set rst = OpenADORecordset(strSQL, , cnn)
Do Until rst.EOF
If rst![单价] > 2000 Then '这是关键句
单价太贵 = True '这是关键句
End If
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
Set cnn = Nothing
End Function
Access软件网交流QQ群(群号：198465573) |
|
