主题：利用Datalist的复选框动态输入

呵呵，看上去复杂，其实代码很简单：
 

Dim dst As WinForm.DataList = e.Form.Controls("DataList1")

For Index As Integer = 0 To dst.Count - 1

    If dst.GetChecked(Index) Then

        Dim dr1 As DataRow = dst.GetDataRow(Index)

        Dim dr2 As Row = Tables("出库单.出库明细").AddNew()

        Dim Vals() As String = New String(){"色名","一","二","三","四","五"}

        dr1("状态") = "销售"

        dr1("出库日期") = Date.Today

        For Each Val As String In Vals

            dr2(val) = dr1(val)

        Next

    End If

Next