改成比如
Dim b1 As New CrossTableBuilder("统计表1", datatables("窗口1_Table1"))
或者
Dim b1 As New CrossTableBuilder("统计表1", tables("窗口1_Table1").datatable)