在图表窗口加入了一个文本框，点击按钮进入图表窗口时，文本框内容自动显示某表单元格的内容，代码如下
Forms("公司整体费用小类分析").Open()
Dim txt As String
txt = Forms("公司整体费用小类分析").Controls("textbox1").Value
Dim dr As DataRow
dr = DataTables("分析说明").Find("所属单位 = '" & User.Group & "'")
If dr IsNot Nothing Then
txt = dr("分析1")
End If
然后文本框的ValueChanged事件代码如下，以做到文本框内容改变后写回到某单元格
Dim txt As String
txt = Forms("公司整体费用小类分析").Controls("textbox1").Value
Dim dr As DataRow
dr = DataTables("分析说明").Find("所属单位 = '" & User.Group & "'")
If dr IsNot Nothing Then
dr("分析1") = txt
End If
上述的赋值和显示没有问题，但在关闭图表窗口的时候弹出以下内容的对话框
“公司整体费用小类分析已经关闭，不能调用其中的控件textbox1”
如何不显示上面的对话框呢
加好友 
发短信
Post By：2016/3/14 12:51:00 [显示全部帖子]
