for i=2 to ll_rows
li_count =dw_list .insertrow(0)
dw_list.setrow(li_count)
//申请号5
dw_list.object.申请号[li_count] = ExcelServer.ActiveSheet.Cells[i,5].text
next
ll_found = dw_list.Find("dw_list.object.申请号[li_count]='"+dw_list.object.申请号[li_count+1]+"' ",1, dw_list.RowCount())
ll_found = dw_list.Find("sq=sq2",1, dw_list.RowCount())
if ll_found>0 then
messagebox("提示","有重复申请号["+sq+"]请在表格中修改后在导入!")
end if