以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 求更正 (http://foxtable.net/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 -- 谢谢. |