Dim fdr As DataRow = DataTables("出入库").sqlselect("year([日期])=" & ny.substring(0,4) & " and month(日期)=" & ny.substring(4,2))