同一编号会覆盖，rs2.addnew无法增加一行

dim rstTRFormProperty

set rstTRFormProperty = Session("rstTRFormProperty")
set objDB = Server.CreateObject("EF2KPublic.Database")
  set objRE = Server.CreateObject("EF2KEngine.Class1")
   
if Request("UndoApprove") = "Y" then '撤签后,执行本段程序代码.

else
'您可以使用 Session("blnCaseClosed") 来判断表单是否已经结案.
if Session("blnCaseClosed") = True then
' '=======>>已经结案
' '您可以使用 rstTRFormProperty("resda021") 来判断审批的结果
  
select case rstTRFormProperty("resda021")
case 2 '2=同意
'单头
strSQLH="select * from fjyfaq where faq001='"&session("FormID")&"' and faq002='"&session("SheetNO")&"'"
  set rsH = objDB.CreateRecordset(strSQLH,Session("strProcID"))
if not rsH.eof then  
'单身
strSQLD="select * from fjyfar where far001='"&session("FormID")&"' and far002='"&session("SheetNO")&"' "
  set rsD = objDB.CreateRecordset(strSQLD,Session("strProcID"))
   
  do while not rsD.eof
  strSQLB="select * from fjybaj where baj001='" & rsD("far004") & "' "
  set rs2 = objDB.CreateRecordset(strSQLB,Session("strProcID"))
  if not rs2.eof then
  rs2("baj001")= rsD("far004")
rs2("baj002")= rsD("far005")
rs2("baj003")= rsD("far003")
rs2("baj004")= rsD("far012")
rs2("baj005")= rsD("far013")
rs2("baj006")= rsD("far014")
rs2("baj007")= rsD("far015")
rs2("baj008")= rsD("far016")
rs2("baj009")= rsD("far017")
rs2("baj010")= "0"
rs2("baj011")= ""
rs2("baj902")=Session("strUserID")
rs2("baj903")=objRE.NowDateTime()
  
  else
  '取得区域(部门属性)
  strSQL="select resaa001 from resaa inner join resam on resaa001=resam001 where resam002='" & rsH("faq008") & "'"
  set rs3 = objDB.CreateRecordset(strSQL,Session("strProcID"))
  if rs3.eof then
  strqy="ER" '区域
  else
  strqy=trim(rs3("resaa001")) '区域
  end if
  set rs3 = nothing
   
  strnf=replace(rsH("faq010"),"-","") '年月
  strCode=strqy & strnf
   
  '计算活动起始编号
  strSQL="select baj001 from fjybaj where baj001 like '" & strCode & "%' order by baj001 desc"
  set rsMax = objDB.CreateRecordset(strSQL,Session("strProcID"))
  if rsMax.eof then
  strNum="0"
  else
  strNum=cint(right(rsMax("baj001"),4))
  end if
  set rsMax = nothing
   
  strNum=strNum+1
  strNum=objRE.formatSTR(strNum,"0000")  
strHDNo=strCode & strNum
  rs2.AddNew
  rs2("baj001")= rsD("far004")
rs2("baj002")= rsD("far005")
rs2("baj003")= rsD("far003")
rs2("baj004")= rsD("far012")
rs2("baj005")= rsD("far013")
rs2("baj006")= rsD("far014")
rs2("baj007")= rsD("far015")
rs2("baj008")= rsD("far016")
rs2("baj009")= rsD("far017")
rs2("baj010")= "0"
rs2("baj011")= ""
rs2("baj902")=Session("strUserID")
rs2("baj903")=objRE.NowDateTime()

  end if
   
  set rs2 = objDB.UpdateRecordset(rs2,Session("strProcID"))
set rs2 = nothing
   
  rsD.movenext
  loop
   
  set rsD = nothing  
  end if

  set rsH = nothing

1、单步跟踪一下，看看你的程序流程是否有问题
2、rs2.addnew后字段更新完成还需要rs2.update进行更新,才能入库。