共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谢谢，高手就是高手啊！
但是还有一个问题，Ｄatalist能否动态筛选出已经输入的＂客户＂列的记录呢？
4楼
狐狸爸爸 发表于：2009/2/9 10:55:00以下是引用woodiy在2009-2-9 9:11:00的发言：
谢谢，高手就是高手啊！
但是还有一个问题，Ｄatalist能否动态筛选出已经输入的＂客户＂列的记录呢？
可以的，你可以查一下帮助中关于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]