[5分]我想对下表中的序号1（序号不同，序号1重编号）进行重新编号避免有断号

我用了一循环语句如下： Private Sub Command0_Click() n = DMax("序号", "临时表-销售订单产品配置明细") For i = 1 To n DoCmd.RunSQL "DELETE [临时表-产品配置项重置序号].* FROM [临时表-产品配置项重置序号];" DoCmd.RunSQL "INSERT INTO [临时表-产品配置项重置序号] ( 配置项, 原序号 ) SELECT [临时表-销售订单产品配置明细].配置小项, [临时表-销售订单产品配置明细].序号1 FROM [临时表-销售订单产品配置明细] WHERE ((([临时表-销售订单产品配置明细].序号)='& i)) ORDER BY [临时表-销售订单产品配置明细].序号1;" DoCmd.RunSQL "Alter TABLE [临时表-产品配置项重置序号] Alter COLUMN [序号] COUNTER (1, 1)" DoCmd.RunSQL "UPDATE [临时表-产品配置项重置序号] INNER JOIN [临时表-销售订单产品配置明细] ON [临时表-产品配置项重置序号].配置项 = [临时表-销售订单产品配置明细].配置小项 SET [临时表-销售订单产品配置明细].序号1 = [临时表-产品配置项重置序号]![序号] WHERE ((([临时表-销售订单产品配置明细].序号)='& i));" Next I End Sub 运行调试时显示下面语句有问题： DoCmd.RunSQL "INSERT INTO [临时表-产品配置项重置序号] ( 配置项, 原序号 ) SELECT [临时表-销售订单产品配置明细].配置小项, [临时表-销售订单产品配置明细].序号1 FROM [临时表-销售订单产品配置明细] WHERE ((([临时表-销售订单产品配置明细].序号)='& i)) ORDER BY [临时表-销售订单产品配置明细].序号1;" 不知如何改，请教下 问题应该出在：WHERE ((([临时表-销售订单产品配置明细].序号)='& i))这里