亚洲Av无码专区国产乱码DVD,亚洲最大日夜无码中文字幕

Access窗體實(shí)現(xiàn)多條件復(fù)合式的查詢

它是我做的畢業(yè)設(shè)計(jì)軟件中的一部分,看到有人要,就給分離出來做成范例了

多條件復(fù)合式查詢?cè)创a下載文件下載

竹笛
很不錯(cuò)喔！

田野
謝謝大家！

janney0
做得不錯(cuò)！

zglsky在 2002/07/04 23:59:00 回復(fù)-------------------
firstcriterion = True
str2 = "SELECT qry入庫明細(xì).憑證號(hào), qry入庫明細(xì).物料編號(hào), qry入庫明細(xì).物料名稱, qry入庫明細(xì).型號(hào)規(guī)格, qry入庫明細(xì).單價(jià), qry入庫明細(xì).數(shù)量, qry入庫明細(xì).單位, qry入庫明細(xì).總價(jià), qry入庫明細(xì).入庫日期, qry入庫明細(xì).倉庫,  qry入庫明細(xì).供應(yīng)商 FROM qry入庫明細(xì)"
If Not IsNull(憑證號(hào)) Then
    str2 = str2 & " where 憑證號(hào) like '*" & 憑證號(hào) & "*'"
    firstcriterion = False
End If
    If IsNull(開始日期) And IsNull(結(jié)束日期) Then
GoTo jump1
  Else
     If firstcriterion Then
         str2 = str2 & " where 入庫日期 between #" & 開始日期 & "# and #" & 結(jié)束日期 & "#"
         firstcriterion = False
     Else
        str2 = str2 & " and 入庫日期 between #" & 開始日期 & "# and #" & 結(jié)束日期 & "#"
    End If
    End If
jump1:

jump2:
      MsgBox str2
      List3.RowSource = str2

str2、jump1 如果我不想他顯示在列表框中想用一個(gè)新窗體顯示應(yīng)該如何改？

田野
我想指定窗體的數(shù)據(jù)源應(yīng)該可以.我現(xiàn)在南京工作,系統(tǒng)集成方面的,正在找房子,比較忙,你自己試一試吧

(界面_窗體_子窗體-相關(guān)文章技巧鏈接)：
ACCESS-VBA編程第六章 ACCESS查詢1
ACCESS-VBA編程第六章 ACCESS 查詢2

聯(lián)系人：	王先生
Email：	18449932@qq.com
QQ：	18449932
微博：	officecn01

聯(lián)系人：

王先生

Email：

18449932@qq.com

QQ：

18449932

微博：

officecn01

Office交流網(wǎng)

[原創(chuàng)]Access窗體多條件復(fù)合查詢[源碼]