bh = "CG-" & format(CInt(bh.Substring(2,6)),"000000")
e.DataRow("采购单号") = bh & "-" & Format(idx,"000")
应该是这两句,这样试试