- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 利用Datalist的复选框动态输入 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1769)
-- 发布时间：2009/2/8 20:25:00
-- 利用Datalist的复选框动态输入
此主题相关图片如下：未命名.jpg
如图:
1.在出库单窗口中选择"生产管理查看"按钮以后,打开生产管理窗口
2.在"生产管理\'窗口中,选择Datalist复选框以后,(可多项选择)
3.点击"选择确认"按钮,可以自动复制到"出库单明细"中,另外,生产管理表中的 "状态" 改成: 销售
"日期"输入:当前日期
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试.table |
-- 发布时间：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编辑过]
-- 发布时间：2009/2/9 9:11:00
--
谢谢，高手就是高手啊！
但是还有一个问题，Ｄatalist能否动态筛选出已经输入的＂客户＂列的记录呢？
-- 发布时间：2009/2/9 10:55:00
--
以下是引用woodiy在2009-2-9 9:11:00的发言：
谢谢，高手就是高手啊！
但是还有一个问题，Ｄatalist能否动态筛选出已经输入的＂客户＂列的记录呢？
可以的，你可以查一下帮助中关于DataList的部分。
其实我二楼的代码一点不“高”，常规编码而已，多看帮助，多练习，自己就会了
-- 发布时间：2009/2/9 14:21:00
--
二楼的代码没起作用啊...
-- 发布时间：2009/2/9 14:35:00
--
怎么会呢，楼主自己都起作用了
-- 发布时间：2009/2/9 15:08:00
--
是的,可以的,我试了!
-- 发布时间：2009/2/9 21:03:00
--
楼上的麻烦你发上来看看.难道我的系统有问题?
-- 发布时间：2009/2/10 8:59:00
--
以下是引用菜鸟foxtable在2009-2-9 21:03:00的发言：
楼上的麻烦你发上来看看.难道我的系统有问题?
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:测试222.table |
我这里测试完全OK的.