以文本方式查看主题

-  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=35023)

--  作者:jinzhengbe
--  发布时间:2013/6/22 8:04:00
--  请求指点迷经

如果 labl 列里含有 apm ,al 等字符,则qu 列 值为1  反之,qu 咧 的值=2  下面这段代码我是想要这个效果。但是,反应不对。为甚呢? 代码的问题么? 这段代码是写在 datacolchange 事件里的。 请各位前辈帮忙。谢谢~~~!!!!

 

If e.DataRow("labl").Contains("Apm") Or e.DataRow("labl").Contains("Al") Or e.DataRow("labl").Contains("us")  Or e.DataRow("labl").Contains("ds")  Or e.DataRow("labl").Contains("nz")  Then
e.DataRow("qu")= 1 else

e.datarow(“qu”)=2

End If

 

这个代码有什么问题么? 为甚 qu的 值都是 2呢?


--  作者:lsy
--  发布时间:2013/6/22 8:28:00
--  

AfterEdit

 

Dim s As String = "Apm,Al,us,ds,nz"
If e.Col.Name = "labl" Then

   If s.Contains(e.Row("labl")) Then
      e.Row("qu") = 1

   Else
      e.Row("qu") = 2

   End If

End If

[此贴子已经被作者于2013-6-22 8:54:14编辑过]

--  作者:lsy
--  发布时间:2013/6/22 8:44:00
--  

DataColChanged

似乎真的有问题,请狐爸验证一下。

 

哎!又没问题了。咋弄的?

[此贴子已经被作者于2013-6-22 8:55:03编辑过]

--  作者:jinzhengbe
--  发布时间:2013/6/22 8:55:00
--  可是我没有编辑过数据阿

可是我没有编辑过数据阿 数据都是自动拷贝过来的。

必须要datachange阿

 


--  作者:lsy
--  发布时间:2013/6/22 8:56:00
--  
以下是引用jinzhengbe在2013-6-22 8:55:00的发言:

可是我没有编辑过数据阿 数据都是自动拷贝过来的。

必须要datachange阿

 

Dim s As String = "Apm,Al,us,ds,nz"
If e.DataCol.Name = "labl" Then

   If s.Contains(e.DataRow("labl")) Then
      e.DataRow("qu") = 1

   Else
      e.DataRow("qu") = 2

   End If

End If

[此贴子已经被作者于2013-6-22 8:58:38编辑过]