If Tables("窗口1_Table1").DataSource = DataTables("表A") Then
......
else
end if
加黑代码提示:编译错误,属性datasource为writeonly