e.DataCol.Name = "件号" Then e.DataRow("档号") = dr("分类号") & "-" & dr("年度")& dr("期限代码")& "-" & dr("件号")end if前后两段都用一个变量了,将这段的"dr"改成其它的字符就可以了,比如改成:dr1