以下是引用mr725在2009-3-20 13:46:00的发言：
打勾前：

此主题相关图片如下：窗口中datalist里加显示复选框后代码这么写？.jpg

打勾后：

此主题相关图片如下：窗口中datalist里加显示复选框后代码这么写+？.jpg

如果是希望利用复选框来设置审核列的内容，用datalist实现不了，你应该用“表”控件。

如果是这个要求应该很简单吧。

Dim dst As WinForm.DataList = Forms("pzsh").Controls("DataList1")
if 复选框 被选中（即：打勾） then
datatables("flxsb").绑定表的同一行的("审核")列= "*" 
end if

【怎么表达？】

以下是引用原在2009-3-20 15:09:00的发言：
是这样么

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

点击浏览该文件:管理项目1.table

原兄：是这样，谢谢 知道了！～

以下是引用原在2009-3-20 15:09:00的发言：
是这样么

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

点击浏览该文件:管理项目1.table

有个问题： 关闭窗口又重新打开这个窗口后，所有已选内容全部又清空了？

AfterLoad事件代码

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