DataTables("Kkaoqun").DeleteFor( " [nian] = '" & kqn & "' and [yue]='" & kqy & "' and [D" & kqr & "] ='" & kqy & "' ")