应用实例二
假定要设计一个下图所示的窗口,自动列出订单表的所有产品供选择,单击确定按钮后,筛选出所选各产品的订单:
设计这样的窗口很简单,窗口插入一个CheckedListBox控件,一个“确定”按钮,一个“取消”按钮。
窗口的AfterLoad事件代码设置为:
Dim
lb As
WinForm.CheckedListBox
= e.Form.Controls("CheckedListBox1")
lb.ComboList
= DataTables("订单").GetComboListString("产品")
“确定”按钮的代码设置为:
Dim
s As String