Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共9 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

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

1楼
woodiy 发表于:2009/2/8 20:25:00

图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看

如图:

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


 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试.table

2楼
狐狸爸爸 发表于:2009/2/8 21:33:00
呵呵,看上去复杂,其实代码很简单:
 

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

[此贴子已经被作者于2009-2-8 21:33:53编辑过]
3楼
woodiy 发表于:2009/2/9 9:11:00

谢谢,高手就是高手啊!

但是还有一个问题,Datalist能否动态筛选出已经输入的"客户"列的记录呢?

4楼
狐狸爸爸 发表于:2009/2/9 10:55:00
以下是引用woodiy在2009-2-9 9:11:00的发言:

谢谢,高手就是高手啊!

但是还有一个问题,Datalist能否动态筛选出已经输入的"客户"列的记录呢?


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

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

5楼
菜鸟foxtable 发表于:2009/2/9 14:21:00
二楼的代码没起作用啊...图片点击可在新窗口打开查看
6楼
狐狸爸爸 发表于:2009/2/9 14:35:00
怎么会呢,楼主自己都起作用了
7楼
woodiy 发表于:2009/2/9 15:08:00
是的,可以的,我试了!
8楼
菜鸟foxtable 发表于:2009/2/9 21:03:00

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

9楼
woodiy 发表于:2009/2/10 8:59:00
以下是引用菜鸟foxtable在2009-2-9 21:03:00的发言:

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

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试222.table


我这里测试完全OK的.
共9 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03516 s, 4 queries.