以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]dr 在封闭块中隐藏变量  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=73984)

--  作者:huazhencong
--  发布时间:2015/8/30 20:22:00
--  [求助]dr 在封闭块中隐藏变量
请教:我在datacolchanged事件中编写下面代码,结果出现报错信息:dr 在封闭块中隐藏变量
If e.DataCol.Name = "产品ID" Then \'如果内容发生变动的是品名列
    If e.NewValue Is Nothing Then \'如果新值是空白,也就是品名列的内容为空
        e.DataRow("单价") = Nothing \'那么清空此行单价列的内容
    Else
        Dim dr As DataRow
        \'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
        dr = DataTables("产品").Find("[产品ID] = \'" & e.NewValue & "\'")
        If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
            e.DataRow("单价") = dr("产品单价") 
        End If
    End If
End If



--  作者:有点蓝
--  发布时间:2015/8/30 20:34:00
--  
你是不是上面用到过dr这个变量啊
--  作者:huazhencong
--  发布时间:2015/8/30 20:36:00
--  
喔,是的,我改成dr1就行了,谢谢啦!