以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求更正  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=120899)

--  作者:SZDVYE
--  发布时间:2018/6/26 3:22:00
--  求更正
表达式运算结果错误,求更正.
当"箱_车规格"变化时,类容不含"T"或者"尺"的显示错误,并变回空值.
不知道哪里错了,求大神指正.


Select Case e.DataCol.Name
    Case "箱_车规格"
        If e.NewValue IsNot Nothing Then
            Dim Str1 As String = e.DataRow("箱_车规格")
            If Str1.Contains("T") = False Or Str1.Contains("尺") = False Then
                e.DataRow("箱_车规格") = ""
                MessageBox.show("无此车型!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            End If
        End If
End Select


--  作者:有点甜
--  发布时间:2018/6/26 9:05:00
--  
Select Case e.DataCol.Name
    Case "箱_车规格"
        Dim Str1 As String = e.DataRow("箱_车规格")
        If str1 <> Nothing Then
            If Str1.Contains("T") = False AndAlso Str1.Contains("尺") = False Then
                e.DataRow("箱_车规格") = nothing
                MessageBox.show("无此车型!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            End If
        End If
End Select

--  作者:SZDVYE
--  发布时间:2018/6/26 17:11:00
--  
谢谢.