- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 批量限制 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=137050)
-- 发布时间：2019/6/27 9:32:00
-- 批量限制
If e.Col.name = "五十米_男" AndAlso e.Row("组别") = "女子组" Then
e.Cancel = True
MessageBox.Show("男子不能报女子组的项目!")
End If
此主题相关图片如下：tt截图未命名.jpg
当组别为男子组是不能报女子组项目，当组别为女子组是不能报男子组项目， 我只会单个的，因为男子组与女子组的项目较多，怎样批量写代码处理
-- 发布时间：2019/6/27 10:59:00
--
preparetEdit事件，比如
If e.row("组别") = "男子组" Then
If e.col.name.contains("女") Then e.cancel = true
End If
-- 发布时间：2019/6/27 11:00:00
--
Dim values() As String = {"五十米","一百米","二百米"} \'以此为例,其他项目可再多加
For i As Integer =0 To values.length-1
If e.Col.name = values(i) AndAlso e.Row("组别") = "女子组" Then
e.Cancel = True
MessageBox.Show("男子不能报女子组的项目!")
End If
Next
For i As Integer =0 To values.length-1
If e.Col.name = values(i) AndAlso e.Row("组别") = "男子组" Then
e.Cancel = True
MessageBox.Show("女子不能报男子组的项目!")
End If
Next
-- 发布时间：2019/6/27 11:36:00
--
谢谢
-- 发布时间：2019/6/27 11:36:00
--
谢谢，还是老师的代码简单