以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教 代码为何不起作用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59882)
--  作者：jswjyjf
--  发布时间：2014/11/12 20:15:00
--  请教 代码为何不起作用

Select Case e.DataCol.Name
    Case "染厂名称"
        Dim dr1 As DataRow
        dr1 = DataTables("染厂").Find("名称=\'" & e.newvalue & "\' ")
        If dr1 IsNot Nothing Then
            e.DataRow("染厂编码")=dr1("编码")
        Else
            e.DataRow("染厂编码")=""           
        End If

 

找不到名称 染厂编码为何不为空
--  作者：有点甜
--  发布时间：2014/11/12 20:17:00
--  
  是不是你有其它代码影响了？
--  作者：y2287958
--  发布时间：2014/11/12 20:17:00
--  
这个代码用在什么事件中？