Foxtable(狐表)用户栏目专家坐堂 → 判断所填内容自动按规则填写另一字段


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

主题:判断所填内容自动按规则填写另一字段

帅哥哟,离线,有人找我吗?
andyd
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:40 积分:445 威望:0 精华:0 注册:2018/8/6 13:46:00
判断所填内容自动按规则填写另一字段  发帖心情 Post By:2020/2/14 13:20:00 [只看该作者]

top颜色 的值可能是wwc w wc acc c ac cgc cg g,希望通过在填写top颜色时判断所填内容 自动填写topc,top颜色为空时 topc 为空,包含w时 topc 为 w,包含g时 topc 为g,非空又不包含g w时为c。
下面的代码在DataColChanged事件,当top颜色非空时只输出 c,清空top颜色时报错。帮忙看看怎么写,谢谢。

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "top颜色"
If e.NewValue Is Nothing Then 
            dr("topc") = Nothing
        If e.newvalue.contains("W") Then
            dr("topc") = "W"
        If e.newvalue.contains("G") Then
            dr("topc") = "G"
            Else
            dr("topc") = "C"
        End If
        End If
        End If
End Select
[此贴子已经被作者于2020/2/14 13:24:09编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/14 13:37:00 [只看该作者]

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "top颜色"
        If e.NewValue Is Nothing Then
            dr("topc") = Nothing
        Else
            If e.newvalue.contains("W") Then
                dr("topc") = "W"
            ElseIf e.newvalue.contains("G") Then
                dr("topc") = "G"
            Else
                dr("topc") = "C"
            End If
        End If
End Select

 回到顶部