應用實例

假定要設計一個下圖所示的窗口，自動列出訂單表的所有產品供選擇，單擊確定按鈕后，篩選出所選各產品的訂單：

設計這樣的窗口很簡單，窗口插入一個CheckedListBox控件，一個“確定”按鈕，一個“取消”按鈕。

窗口的AfterLoad事件代碼設置為：

Dim

lb As

WinForm.CheckedListBox

= e.Form.Controls("CheckedListBox1")

lb.ComboList

= DataTables("訂單").GetComboListString("產品")

“確定”按鈕的代碼設置為：

Dim s

As

String

Dim l As

WinForm.CheckedListBox

= e.Form.Controls("CheckedListBox1")

For Each

Index As

Integer

In l.CheckedIndices

If s > ""

Then

s = s &

","

End

If

s = s & "’"

& l.Items(Index)

& "’"

Next

If s > "" Then

Tables("訂單").Filter

= "產品 In (" & s &

")"

End If

e.Form.Close()

總結

以上是生活随笔為你收集整理的oracle getpy,应用实例 - Foxtable 中文帮助文档的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。