(PrepareEdit事件代码如下:)
If e.Col.name="大类"
Dim tb As new droptreebuilder
tb.sourceTable=DataTables("进货")
tb.treecols="大类|小类|品牌|型号|串号"
tb.sourcecols="大类|小类|品牌|型号|串号|建议价"
tb.receivecols="大类|小类|品牌|型号|串号|建议价"
Tables("日报").Cols("大类").droptree=tb.build()
End If
(DataColchanged事件代码如下:)
If e.DataCol.Name = "建议价" Then
If e.DataRow("串号") IsNot Nothing
Dim filter As String
filter="[串号]='"&e.DATAROW("串号")&"'"
DataTables("进货").deletefor(filter)
End If
End If
添加以上代码后,”日报表“中进行删除行操作时无反应,需在“大类“以外列点击才能成功,为什么?如何改进?
请指教!
[此贴子已经被作者于2016/4/23 19:18:19编辑过]