e.DataRow("记录编号") =e.DataRow("组别") & bh & Format(idx,"000")
改成
e.DataRow("记录编号") = bh & Format(idx,"000")