Dim r as Row = tables("主窗口_table1").CurrentTables("主窗口_table2").Filter = "[客户名称]='" & r("客户名称") & "'"