以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]datacolchanged调用窗体  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=160256)

--  作者:beijingboat
--  发布时间:2021/1/26 16:22:00
--  [求助]datacolchanged调用窗体
Select Case e.DataCol.Name
    Case  "预计成本"
                
        Dim dr3 As DataRow=DataTables("项目表").Find("_identify=\'"& e.datarow("所属子项目编号") &"\'")
        If dr3 IsNot Nothing Then
            dr3("金额合计")=e.DataRow("概算合计")
           
        End If
       
End Select
\'-------------------------以下代码,窗口不打开时,执行报错,调用目标异常
If Forms("窗口打开项目").Opened Then   
    Dim brb As WinForm.Button=Forms("窗口打开项目").Controls("btn按钮刷新")
    brb.PerformClick
End If

--  作者:有点蓝
--  发布时间:2021/1/26 16:36:00
--  
窗口不打开是不会执行的。具体错误提示发上来看看?