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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 逻辑列实现单选功能

共有3844人关注过本帖树形打印复制链接主题：逻辑列实现单选功能

lianghanyu

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：280 积分：2487 威望：0 精华：0 注册：2020/6/28 8:43:00

逻辑列实现单选功能 发帖心情

Post By：2023/6/3 8:54:00 [只看该作者]

我有一个任务状态的逻辑列，我想把它做成只能是单选的在DataColChanged中加入以下代码

Select Case e.DataCol.Name

Case "任务状态"

If e.DataRow("任务状态") = True Then

Dim drs As List(Of DataRow) = DataTables("信息记录").SQLSelect("任务状态 = 1")

If drs.Count > 0 Then

For Each dr As DataRow In drs

dr("任务状态") = 0

dr.Save

End If

End Select

这样做，如果我每次操作只勾选一行，可以实现把其它已经的清除掉勾选。但是如果我勾选多行，再保存，它会把我勾选的多行都可以选中，无法实现单选

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/6/3 9:12:00 [只看该作者]

If e.DataRow("任务状态") = True Then

Dim drs As List(Of DataRow) = DataTables("信息记录").SQLSelect("任务状态 = 1")

For Each dr As DataRow In drs

dr("任务状态") = false

Dim drs As List(Of DataRow) = DataTables("信息记录").Select("任务状态 = true and _identify <>" & e.DataRow("_identify"))

For Each dr As DataRow In drs

dr("任务状态") = false

End If

如果数据是全部加载的，没有必要使用SQLSelect，直接去掉第一段SQLSelect的代码即可

lianghanyu

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：280 积分：2487 威望：0 精华：0 注册：2020/6/28 8:43:00

Post By：2023/6/3 9:55:00 [只看该作者]

谢谢！

主题：逻辑列实现单选 功能