Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助 DataColChanged


  共有2060人关注过本帖树形打印复制链接

主题：求助 DataColChanged
帅哥哟，离线，有人找我吗？
lingyun00800
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：177 积分：1757 威望：0 精华：0 注册：2015/1/17 23:24:00 		求助 DataColChanged  发帖心情 Post By：2015/7/9 16:16:00 [只看该作者]

 If e.DataCol.Name = "选择题_A选项" Then
    If e.NewValue = True Then
        e.DataRow("正确答案") = "A"
    Else
        e.DataRow("正确答案") = ""
    End If
End If
If e.DataCol.Name = "选择题_B选项" Then
    If e.NewValue = True Then
        e.DataRow("正确答案") = "B"
    Else
        e.DataRow("正确答案") = ""
    End If
End If
If e.DataCol.Name = "选择题_C选项" Then
    If e.NewValue = True Then
        e.DataRow("正确答案") = "C"
    Else
        e.DataRow("正确答案") = ""
    End If
End If
If e.DataCol.Name = "选择题_D选项" Then
    If e.NewValue = True Then
        e.DataRow("正确答案") = "D"
    Else
        e.DataRow("正确答案") = ""
    End If
End If
If e.DataCol.Name = "选择题_E选项" Then
    If e.NewValue = True Then
        e.DataRow("正确答案") = "E"
    Else
        e.DataRow("正确答案") = ""
    End If
End If

我这么做是单选。如果是多选怎么写。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/7/9 16:23:00 [只看该作者]

Select Case e.DataCol.Name
    Case "选择题_A选项","选择题_B选项","选择题_C选项","选择题_D选项","选择题_E选项"
        Dim str As String = ""
        If e.DataRow("选择题_A选项") = True Then
            str &= "A,"
        End If
       
        If e.DataRow("选择题_B选项") = True Then
            str &= "B,"
        End If
        If e.DataRow("选择题_C选项") = True Then
            str &= "C,"
        End If
        If e.DataRow("选择题_D选项") = True Then
            str &= "D,"
        End If
        If e.DataRow("选择题_E选项") = True Then
            str &= "E,"
        End If
        e.DataRow("正确答案") = str.Trim(",")
End Select

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 4 次数据查询