主题：[求助]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