主题：动态加载数据问题

表CurrentChanged事件代码：
if tables("产品目录").count > 0
    With DataTables("产品工序")
        .LoadFilter = "[图号] = '" & Tables("产品目录").Current("图号") & "'"
        .Load()
    End With
    With DataTables("产品工艺")
        .LoadFilter = "[图号] = '" & Tables("产品目录").Current("图号") & "'"
        .Load()
    End With
    Return
end if
在表行由0行到有行时，也会报错，加和删除红色代码都一样，图片如下：
此主题相关图片如下：未命名1.bmp