我在主窗口中加载了一个Normal的Table,一个SQLQuery的Table,然后根据Normal的Table里当前行自动筛选出符合的SQLQuery的Table,我把这个功能写在CurrentChanged事件里,打开的时候出错,说是找不到Tables(窗口_Table2),这个应该写在哪个函数里呢?写在click事件里没问题,但是刚打开的时候又起不到筛选的效果,只有点击后才符合要求,应该是感觉CurrentChanged事件发生时表还没有形成,所以会出错,但是咋解决呢?
窗口的CurrentChagned事件里写如下代码:
If e.Table.Current Is Nothing Then '如果Current为Nothing
'没有选定行时执行的代码
Else
'有选定行时执行的代码
Dim tb As Table = Tables("窗口_Table2")
Dim flt As String = "[产品编号] = '" & e.Table.Current("产品编号") & "'"
tb.DataTable.Load
tb.Filter = flt
End If