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编辑过]
加好友 
发短信
Post By：2020/2/14 13:20:00 [显示全部帖子]
