主题：求大师指点“索引超出数组界限”

没有查到数据，数据表没有一行数据，就会出错

            DataTables("存货账").LoadFilter = "[商品名称] = '" & dr("存货名称") & "' AND 业务发生日期 is not null"
            DataTables("存货账").Load
            With DataTables("存货账")
                .DataCols("进库").RaiseDataColChanged(.DataRows(0))
            End With