用刚才老师指导的方法我在
prepareEdit事件中设置了如何代码：'设置【公司】列数据表目录数
If e.IsFocusCell Then
If e.Col.Name="公司" Then
Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("原料采购") '指定目录树表
tb.TreeCols = "公司|合同号|牌号" '指定用于生成目录树的列
tb.SourceCols = "合同号|公司|代码|牌号|厚度|宽度|重量|提货方式|合同主号" '指定数据来源列
tb.ReceiveCols = "合同号|公司|代码|牌号|厚度|宽度|重量|提货方式|合同主号" '指定数据接收列
tb.TreeWidth=250
tb.TreeFilter="[审核]=False"
Tables("原料采购入库通知明细").Cols("公司").DropTree = tb.Build()
End If
End If
用此代码生成的目录树没有问题，但在窗口中很容易引起死机，比如我先选定公司列所在的单元格，然后按窗口中按钮“删除”，“删除”按钮的代码如下：
Dim Result As DialogResult
Result = MessageBox.Show("确认删除吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Tables("原料采购入库通知明细").Current.Delete
End If
按了“删除”后就死机了，问题应该是出在弹出框上，我应该如何解决此问题，请老师指导一下。
加好友 
发短信
Post By：2014/12/16 13:06:00 [只看该作者]
