环境:ABFramework3.9.5
错误描述:循环插入报如题所示错误
代码如下:
rstUpSalesDetail.FieldByName('CustGoodsCode').AsString:=rstSourceData.FieldByName('CustGoodsCode').AsString;
rstUpSalesDetail.FieldByName('BrandID').AsString:=rstSourceData.FieldByName('BrandID').AsString;
rstUpSalesDetail.FieldByName('DistrictID').AsString:=rstSourceData.FieldByName('DistrictID').AsString;
rstUpSalesDetail.FieldByName('Field1').AsString:=rstSourceData.FieldByName('Field1').AsString;
rstUpSalesDetail.FieldByName('Field2').AsString:=rstSourceData.FieldByName('Field2').AsString;
rstUpSalesDetail.FieldByName('Field3').AsString:=rstSourceData.FieldByName('Field3').AsString;
rstUpSalesDetail.FieldByName('Field4').AsString:=rstSourceData.FieldByName('Field4').AsString;
rstUpSalesDetail.FieldByName('Field5').AsString:=rstSourceData.FieldByName('Field5').AsString;
vFieldTypeNames:=FieldTypeNames[rstSourceData.FieldByName('BoxQty').DataType];
vFieldTypeNames:=FieldTypeNames[rstUpSalesDetail.FieldByName('BoxQty').DataType];
rstUpSalesDetail.FieldByName('BoxQty').AsInteger:=rstSourceData.FieldByName('BoxQty').AsInteger;
rstUpSalesDetail.FieldByName('UnitPrice').AsCurrency:=rstSourceData.FieldByName('UnitPrice').AsCurrency;
rstUpSalesDetail.FieldByName('DiscountRate').AsCurrency:=rstSourceData.FieldByName('DiscountRate').AsCurrency;
rstUpSalesDetail.FieldByName('PurchaseOrderID').AsString:=OrderABQuery.FieldByName('PurchaseOrderID').AsString;
rstUpSalesDetail.FieldByName('SalesOrderDetailID').AsString:=rstSourceData.FieldByName('OrderDetailID').AsString;
rstUpSalesDetail.FieldByName('SalesOrderID').AsString:=OrderDetailABQuery.FieldByName('SalesOrderID').AsString;
for i:=1 to MaxSizeCol do
rstUpSalesDetail.FieldByName('x_'+IntToStr(i)).AsInteger:=rstSourceData.FieldByName('x_'+IntToStr(i)).AsInteger;
rstUpSalesDetail.FieldByName('SizeIndex').AsInteger:= MaxSizeCol;
执行到BoxQty赋值时报错
经过排查是因为设置了字段CustGoodsCode的取值SQL是:箱*数量和,所以执行到箱时就会报 type (String) into type (Double)的错误