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

此主题相关图片如下：未命名.jpg


如图:

1.在出库单窗口中选择"生产管理查看"按钮以后,打开生产管理窗口
2.在"生产管理'窗口中,选择Datalist复选框以后,(可多项选择)
3.点击"选择确认"按钮,可以自动复制到"出库单明细"中,另外,生产管理表中的 "状态" 改成:  销售
                                                                                                "日期"输入:当前日期

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试.table

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

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

谢谢，高手就是高手啊！

但是还有一个问题，Ｄatalist能否动态筛选出已经输入的＂客户＂列的记录呢？

可以的，你可以查一下帮助中关于DataList的部分。

其实我二楼的代码一点不“高”，常规编码而已，多看帮助，多练习，自己就会了

二楼的代码没起作用啊...

怎么会呢，楼主自己都起作用了

是的,可以的,我试了!

楼上的麻烦你发上来看看.难道我的系统有问题?

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试222.table

我这里测试完全OK的.