返回列表 上一主題 發帖

[發問] 下拉式選單連動

先做一個類別的資料表
類別.png
在做一個每日花費的資料表

第一層
SELECT 類別.主分類 FROM 類別 GROUP BY 類別.主分類;


第二層
SELECT 類別.子分類, 類別.主分類 FROM 類別 group by 類別.子分類,類別.主分類 Having (((類別.主分類)=每日花費.主分類))


另外 第二層之後要去"事件"那邊新增 On got Focus

輸入程式碼如下
Private Sub 子分類_GotFocus()
  Me![子分類].Requery
End Sub


大致上這樣子,這是參考別人網路上範例 自己改的
希望可以幫的上你
50 字節以內
不支持自定義 Discuz! 代碼

TOP

本帖最後由 softsadwind 於 2012-4-6 14:38 編輯

上次寫的比較簡略
一些要製作標格的也沒寫出來
看範本會比較清楚...
http://webhd.xuite.net/_oops/softsadwind/b06
50 字節以內
不支持自定義 Discuz! 代碼

TOP

回復 9# archanfel

我也是剛學習 只是剛好前陣子也對這個話題感到興趣
拿出來大家一起學習囉

http://webhd.xuite.net/_oops/softsadwind/qdm

假設類別有三層
主分類 子分類 次子分類
其他大部分同二層
Select 類別.次子分類, 類別.子分類, 類別.主分類 FROM 類別 GROUP BY 類別.次子分類, 類別.子分類, 類別.主分類 HAVING (((類別.子分類)=(每日花費.子分類)) AND ((類別.主分類)=(每日花費.主分類)));
50 字節以內
不支持自定義 Discuz! 代碼

TOP

  1. Private Sub 子分類_AfterUpdate()
  2. Me![次子分類] = ""
  3. End Sub

  4. Private Sub 子分類_GotFocus()
  5. Me![子分類].Requery

  6. End Sub


  7. Private Sub 主分類_AfterUpdate()
  8. Me![子分類] = ""
  9. Me![次子分類] = ""
  10. End Sub

  11. Private Sub 主分類_GotFocus()
  12. Me![主分類].Requery
  13. End Sub

  14. Private Sub 次子分類_GotFocus()
  15. Me![次子分類].Requery
  16. End Sub
複製代碼
稍微修正一下 有興趣的可以看...
同一筆訂單修改 也可以正確表示..
http://webhd.xuite.net/_oops/softsadwind/v32
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 口說好話、心想好意、身行好事。
返回列表 上一主題