以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]能帮忙看看代码的问题吗  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88000)
--  作者：527383691
--  发布时间：2016/7/24 16:26:00
--  [求助]能帮忙看看代码的问题吗

是DATACOL CHANGED事件

 

本来想让它在

e.oldvalue 有值执行这个代码：

If e.DataCol.name = "样品数量" Or e.DataCol.name = "案子号"  And e.oldvalue IsNot Nothing Then
   
DataTables("样品信息").DeleteFor("样品编号 Like \'" & e.DataRow("案子号") & "-" & "%\'")

For i As Integer = 1 To e.DataRow("样品数量")
        Dim str As String = e.DataRow("案子号") & "-" & i
\'Dim fdr As DataRow = DataTables("样品信息").find("样品编号 = \'" & str & "\'")
        \'If fdr IsNot Nothing Then
        Dim nr As DataRow = DataTables("样品信息").AddNew
        nr("样品编号") = str
nr("项目") = e.DataRow("项目")
    Next
End If

本来想让它在

e.oldvalue 没有值时执行这个代码

If e.DataCol.name = "样品数量" Or e.DataCol.name = "案子号"  And e.oldvalue Is Nothing Then
For i As Integer = 1 To e.DataRow("样品数量")
        Dim str As String = e.DataRow("案子号") & "-" & i
\'Dim fdr As DataRow = DataTables("样品信息").find("样品编号 = \'" & str & "\'")
        \'If fdr IsNot Nothing Then
        Dim nr As DataRow = DataTables("样品信息").AddNew
        nr("样品编号") = str
    Next

End If

 

 

 

但是好像不能根据e.oldvalue 有无值得情况执行样，都是执行的e.oldvalue Is Nothing 时的代码
--  作者：大红袍
--  发布时间：2016/7/24 16:29:00
--  

If (e.DataCol.name = "样品数量" Or e.DataCol.name = "案子号")  And e.oldvalue <> Nothing Then

 

 

If (e.DataCol.name = "样品数量" Or e.DataCol.name = "案子号")  And e.oldvalue = Nothing Then
--  作者：527383691
--  发布时间：2016/7/24 16:52:00
--  
谢谢
--  作者：527383691
--  发布时间：2016/7/24 17:15:00
--  
还是不能判断啊~
--  作者：527383691
--  发布时间：2016/7/24 17:16:00
--  

空着的字符列还没输入内容的、

E.oldvalue是NOthing晒？
--  作者：大红袍
--  发布时间：2016/7/24 17:30:00
--  

代码没问题，直接说明你的逻辑。

 

或者上传实例说明