读取excel循环语句

[sanyuan35]

现要把excel数据导入表中，现有代码，可是到了读取时，循环语句没有读全。
excel数据为：

以下代码读取时，没有update到2017-09-10数据
var
iRE:Integer;
iRow,iCol :Integer;
MsExcel,MsExcelWorkBook,MsExcelWorkSheet:Variant;
i:Integer;
eicol:Integer;
eirow:Integer;
begin
Try
OpenDialog1.FileName:='*.xls';
if not OpenDialog1.Execute then
begin
Exit;
end;
if ExtractFileExt(OpenDialog1.FileName) <> '.xls' then
begin
MessageBox(0, '请选择正确的excel文件',PChar('提示'),MB_OK or MB_ICONWARNING);
Exit;
end;
MsExcel:=CreateOleObject('Excel.Application');
MsExcel.visible:=true;
MsExcelWorkBook:=MsExcel.WorkBooks.Open(OpenDialog1.FileName);

//更新排班主数据
Application.ProcessMessages;//防止进程阻塞
iRow:=2;
iCol:=1;
i:=1;


while trim(msExcel.WorkSheets['sheet1'].Cells[iCol,eicol].value) <> '' do begin

with query.Close;
query.SQL.Text := 'update wh_dict set wh_amount=:wh_ amount where wh_id= :wh_id and wh_name:=wh_name and in_date:=in_date ;

Parameters.ParamByName('wh_id').Value := Trim(msExcel.WorkSheets[1].Cells[iRow,iCol].value);
Parameters.ParamByName('wh_name').Value := Trim(msExcel.WorkSheets[1].Cells[iRow,iCol+1].value);
Parameters.ParamByName(' wh_amount').Value := Trim(msExcel.WorkSheets[1].Cells[iRow,iCol+2].value);
Parameters.ParamByName('duty_date').Value := Trim(msExcel.WorkSheets[1].Cells[i,iCol+2].value);
ExecSQL;
end;
iRow:=iRow+1;

end;
MsExcel.Quit;
Except
MessageBox(self.Handle,'数据导入失败！','系统提示',0);
MsExcel.Quit;
Exit;
end ;
MessageBox(self.Handle,'数据导入成功！','系统提示',0);
end;

[lyhoo163]

你仅处理了一个日期的值。 你要加一个处理另一个日期的值啊：

  while trim(msExcel.WorkSheets['sheet1'].Cells[iCol,eicol].value) <> '' do
  begin
    with query.Close;
    query.SQL.Text := 'update wh_dict set wh_amount=:wh_ amount  where wh_id= :wh_id  and wh_name:=wh_name and  in_date:=in_date  ;
    Parameters.ParamByName('wh_id').Value := Trim(msExcel.WorkSheets[1].Cells[iRow,iCol].value);
    Parameters.ParamByName('wh_name').Value := Trim(msExcel.WorkSheets[1].Cells[iRow,iCol+1].value);
    Parameters.ParamByName(' wh_amount').Value := Trim(msExcel.WorkSheets[1].Cells[iRow,iCol+2].value); 
    Parameters.ParamByName('duty_date').Value := Trim(msExcel.WorkSheets[1].Cells[i,iCol+2].value);
    ExecSQL;

    with query.Close;
    query.SQL.Text := 'update wh_dict set wh_amount=:wh_ amount  where wh_id= :wh_id  and wh_name:=wh_name and  in_date:=in_date  ;
    Parameters.ParamByName('wh_id').Value := Trim(msExcel.WorkSheets[1].Cells[iRow,iCol].value);
    Parameters.ParamByName('wh_name').Value := Trim(msExcel.WorkSheets[1].Cells[iRow,iCol+1].value);
    Parameters.ParamByName(' wh_amount').Value := Trim(msExcel.WorkSheets[1].Cells[iRow,iCol+3].value); 
    Parameters.ParamByName('duty_date').Value := Trim(msExcel.WorkSheets[1].Cells[i,iCol+3].value);
    ExecSQL;
  end;
    iRow:=iRow+1;
  end;

[lyhoo163]

通过日期的循环（注意位置的循环），再依次读入数据。

[sanyuan35]

引用 1 楼 lyhoo163 的回复:

你仅处理了一个日期的值。 你要加一个处理另一个日期的值啊：

  while trim(msExcel.WorkSheets['sheet1'].Cells[iCol,eicol].value) <> '' do
  begin
    with query.Close;
    query.SQL.Text := 'update wh_dict set wh_amount=:wh_ amount  where wh_id= :wh_id  and wh_name:=wh_name and  in_date:=in_date  ;
    Parameters.ParamByName('wh_id').Value := Trim(msExcel.WorkSheets[1].Cells[iRow,iCol].value);
    Parameters.ParamByName('wh_name').Value := Trim(msExcel.WorkSheets[1].Cells[iRow,iCol+1].value);
    Parameters.ParamByName(' wh_amount').Value := Trim(msExcel.WorkSheets[1].Cells[iRow,iCol+2].value); 
    Parameters.ParamByName('duty_date').Value := Trim(msExcel.WorkSheets[1].Cells[i,iCol+2].value);
    ExecSQL;

    with query.Close;
    query.SQL.Text := 'update wh_dict set wh_amount=:wh_ amount  where wh_id= :wh_id  and wh_name:=wh_name and  in_date:=in_date  ;
    Parameters.ParamByName('wh_id').Value := Trim(msExcel.WorkSheets[1].Cells[iRow,iCol].value);
    Parameters.ParamByName('wh_name').Value := Trim(msExcel.WorkSheets[1].Cells[iRow,iCol+1].value);
    Parameters.ParamByName(' wh_amount').Value := Trim(msExcel.WorkSheets[1].Cells[iRow,iCol+3].value); 
    Parameters.ParamByName('duty_date').Value := Trim(msExcel.WorkSheets[1].Cells[i,iCol+3].value);
    ExecSQL;
  end;
    iRow:=iRow+1;
  end;

我后面还有其它的日期，2017-09-11 2017-09-12 ……这些日期是循环的，就是不知道怎么处理这日期循环问题

[kenlewis]

   //更新排班主数据
  iRow:=1;      //初始位置，第1行
  iCol:=1;      //初始位置，第1列
  iC:=0;        //按列循环标记
  while trim(msExcel.WorkSheets['sheet1'].Cells[iRow,iCol+1+iC].value) <> '' do  //这句是判断日期那一列是否有内容
  begin
    iR:=0;        //按行循环标记
    while trim(msExcel.WorkSheets['sheet1'].Cells[iRow+iR,iCol].value) <> '' do   //判断这行有没有数据
    begin
      Application.ProcessMessages;//防止进程阻塞
      with query.Close;
        query.SQL.Text := 'update wh_dict set wh_amount=:wh_ amount  where wh_id= :wh_id  and wh_name=:wh_name and in_date=:duty_date  ;
        Parameters.ParamByName('wh_id').Value := Trim(msExcel.WorkSheets[1].Cells[iRow+iR,iCol+iC].value);
        Parameters.ParamByName('wh_name').Value := Trim(msExcel.WorkSheets[1].Cells[iRow+iR,iCol+1+iC].value);
        Parameters.ParamByName('wh_amount').Value := Trim(msExcel.WorkSheets[1].Cells[iRow+iR,iCol+2+iC].value);
        Parameters.ParamByName('duty_date').Value := Trim(msExcel.WorkSheets[1].Cells[iRow,iCol+1+iC].value);
        ExecSQL;
      end;
        iR := iR + 1;
    end;
    iC := iC + 1;
  end;

[whb00120012]

看一下 “'duty_date'”的数据 类型，如是日期型，改为字符串型。