以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  逻辑列的排他式选择  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90598)

--  作者:dengzhihao
--  发布时间:2016/9/17 23:11:00
--  逻辑列的排他式选择
Select Case e.DataCol.Name
    Case 
"选项A","选项B","选项C","选项D"
        If 
e.NewValue = True Then
            Dim 
nms() As String = {"选项A","选项B","选项C","选项D"}
            
For Each nm As String In nms
                If nm <> e.DataCol.Name AndAlso e.DataRow(nm) = True Then
                    e.DataRow(nm) = False
                End If
            
Next
        End If
End Select

http://www.foxtable.com/webhelp/scr/2395.htm

如何将这个运用到窗口中?

--  作者:有点蓝
--  发布时间:2016/9/18 8:57:00
--  
如果是正本、副本,窗口表一样可以用
其它类型,直接写到窗口表格控件的表事件中

--  作者:dengzhihao
--  发布时间:2016/9/18 9:12:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20160918091701.png
图片点击可在新窗口打开查看

提示出错!

--  作者:有点蓝
--  发布时间:2016/9/18 10:25:00
--  
If e.Sender.Checked Then
    e.Form.Controls("CheckBox2").Checked  = False
Else
    e.Form.Controls("CheckBox2").Checked  = True
End If

--  作者:有点蓝
--  发布时间:2016/9/18 10:26:00
--  
具体上传例子说明操作逻辑
--  作者:dengzhihao
--  发布时间:2016/9/18 20:22:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


麻烦帮忙看下,如何在窗口做到像表那样的效果
[此贴子已经被作者于2016/9/18 20:22:53编辑过]

--  作者:有点蓝
--  发布时间:2016/9/19 8:34:00
--  
绑定的情况下,把DataColChanging事件代码改为放到DataColChanged事件即可
[此贴子已经被作者于2016/9/19 8:35:15编辑过]