[浏览完整版]
标题：窗口中datalist里加显示复选框后代码这么写
1楼
mr725 发表于：2009/3/20 13:46:00打勾前：
此主题相关图片如下：窗口中datalist里加显示复选框后代码这么写？.jpg
打勾后：
此主题相关图片如下：窗口中datalist里加显示复选框后代码这么写+？.jpg
此主题相关图片如下：窗口中datalist里加显示复选框后代码这么写？.jpg打勾后：
此主题相关图片如下：窗口中datalist里加显示复选框后代码这么写+？.jpg2楼
czy 发表于：2009/3/20 14:17:00没明白是什么意思。
3楼
原 发表于：2009/3/20 14:46:00以下是引用mr725在2009-3-20 13:46:00的发言：
打勾前：
此主题相关图片如下：窗口中datalist里加显示复选框后代码这么写？.jpg
打勾后：
此主题相关图片如下：窗口中datalist里加显示复选框后代码这么写+？.jpg
打勾前：
此主题相关图片如下：窗口中datalist里加显示复选框后代码这么写？.jpg打勾后：
此主题相关图片如下：窗口中datalist里加显示复选框后代码这么写+？.jpg如果是希望利用复选框来设置审核列的内容，用datalist实现不了，你应该用“表”控件。
4楼
czy 发表于：2009/3/20 14:56:00以下是引用原在2009-3-20 14:46:00的发言：
如果是希望利用复选框来设置审核列的内容，用datalist实现不了，你应该用“表”控件。
如果是这个要求应该很简单吧。
5楼
原 发表于：2009/3/20 15:09:00是这样么
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
6楼
mr725 发表于：2009/3/20 15:15:00Dim dst As WinForm.DataList = Forms("pzsh").Controls("DataList1")
if 复选框 被选中（即：打勾） then
datatables("flxsb").绑定表的同一行的("审核")列= "*"
end if
【怎么表达？】
7楼
mr725 发表于：2009/3/20 15:21:00
原兄：是这样，谢谢 知道了！～
[此贴子已经被作者于2009-3-20 15:22:52编辑过]
8楼
czy 发表于：2009/3/20 15:35:00这样可能对减少使用资源好一更点
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
Dim dr as DataRow = dst.Current
Dim dr1 As Integer = Tables("表名").FindRow(dr)
dst.SetChecked(dr1, True)
dr("审核") = true
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
Dim dr as DataRow = dst.Current
Dim dr1 As Integer = Tables("表名").FindRow(dr)
dst.SetChecked(dr1, True)
dr("审核") = true
9楼
mr725 发表于：2009/3/20 15:42:00有个问题： 关闭窗口又重新打开这个窗口后，所有已选内容全部又清空了？
10楼
czy 发表于：2009/3/20 15:46:00AfterLoad事件代码
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
For Index As Integer = 0 To dst.Count - 1
Dim dr As DataRow = dst.GetDataRow(Index)
If dr("审核") = true Then
dst.SetChecked(Index, True)
End If
Next