专家坐堂-表复选框Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  表复选框  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=56391)

--  作者：riyuan
--  发布时间：2014/9/4 12:13:00
--  表复选框
请教表中的复选框如何判断没有选择

--  作者：y2287958
--  发布时间：2014/9/4 12:22:00
--
.checked

--  作者：riyuan
--  发布时间：2014/9/4 12:24:00
--

For Each r As Row In Tables("pl_table1").Rows
If r.Checked=True Then
\'If r.Checked =True
Forms("pl").Controls("button3").Enabled=True
\'Continue For
Exit For

ElseIf r.Checked =False Then
Forms("pl").Controls("button3").Enabled=False

\'MessageBox.Show(r.Index)
Exit For
End If
Next
这段代码只有当第一条为真时，button3才为真，只要第一条没有选择，就算其他的有选择button3也为假

--  作者：有点甜
--  发布时间：2014/9/4 14:07:00
--
Forms("pl").Controls("button3").Enabled = False
For Each r As Row In Tables("pl_table1").Rows
    If r.Checked Then
        Forms("pl").Controls("button3").Enabled = True
        Exit For
    End If
Next

--  作者：Bin
--  发布时间：2014/9/4 14:08:00
--

if  Forms("pl").Opened then
if Tables("pl_table1").Rows(0).Checked then
Forms("pl").Controls("button3").Enabled=True
else
  Forms("pl").Controls("button3").Enabled=false
end if
end if