请帮助看看这种动态条件查询如何做?

yanwei82123300

谢谢6d老师

Henry D. Sy

简单点，可以用left，right函数，不用数组。

Henry D. Sy

1. Private Sub demand_AfterUpdate()
   
2.     Dim strTemp As String
   
3.     Dim strSQL As String
   
4.     Dim Qdf As DAO.QueryDef
   
5.     Dim i As Long
   
6.     Dim BeginVal As Long, EndVal As Long
   
7.     If IsNull(Me.demand) Then Exit Sub
   
8.     BeginVal = Val(Left(Me.demand, 6))
   
9.     EndVal = Val(Right(Me.demand, 6))
   
10.     For i = BeginVal To EndVal
    
11.         strTemp = strTemp & "Nz([" & i & "])+"
    
12.     Next
    
13.     strTemp = Left(strTemp, Len(strTemp) - 1)
    
14.     strSQL = "SELECT Table1.*, " & strTemp & " AS total FROM Table1"
    
15.     Set Qdf = CurrentDb.QueryDefs("qryTotaldemand")
    
16.     Qdf.SQL = strSQL
    
17.     Qdf.Close
    
18.     Set Qdf = Nothing
    
19.     Me.RecordSource = "qryTotaldemand"
    
20. End Sub

复制代码

yanwei82123300

6d 老师能否将9楼或13楼您做的例子中加入条件做成 动态库存递减查询（利用子查询），等候您的佳音

yanwei82123300

请各位老师看看

asklove

好东东收藏先