主题：订单表制作思路

确定按钮代码：

Dim l As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
For Each Index As Integer In l.CheckedIndices
    Dim s As String=l.Items(Index)
    If s > "" Then
        Tables("出库明细").AddNew()
        Tables("出库明细").Current("商品类别")=s
    End If
Next