<script language='vbscript'>
sub Actlistview1_ondblclick()
frm_SJTJ.hn_KeyValue.value=parent.fr_tree.window.document.Acttreeview1.KeyValue
frm_SJTJ.hn_FKeyValue.value=parent.fr_tree.window.document.Acttreeview1.FKey
dim strTmp
strTmp=Actlistview1.strSYDH
if strTmp<>"null" then
dim strGCMC,strGCID,strGLID,strQSZH,strZZZH,strCBR,strSBDH,strSEND,strQZZH
dim pos,length
if strTmp<>"新增" then'用户点击的不是新增
pos=Instr(strTmp,";")
strGCMC=Left(strTmp,pos-1)'工程名称
strTmp=mid(strTmp,pos+1,len(strTmp))
document.frm_SJTJ.hn_GCMC.value=strGCMC
pos=Instr(strTmp,";")
strQZZH=Left(strTmp,pos-1)
strTmp=mid(strTmp,pos+1,len(strTmp))
pos=InStr(strQZZH,"~")
strQSZH=Left(strQZZH,pos-1)'起始桩号
strZZZH=mid(strQZZH,pos+1,len(strQSZH))'终止桩号
document.frm_SJTJ.hn_QSZH.value=strQSZH
document.frm_SJTJ.hn_ZZZH.value=strZZZH
pos=Instr(strTmp,";")
strTmp=mid(strTmp,pos+1,len(strTmp)) pos=Instr(strTmp,";")
strTmp=mid(strTmp,pos+1,len(strTmp)) pos=Instr(strTmp,";")
strGCID=Left(strTmp,pos-1)'GCID
strTmp=mid(strTmp,pos+1,len(strTmp))
document.frm_SJTJ.hn_GCID.value=strGCID
pos=Instr(strTmp,";")
strGLID=Left(strTmp,pos-1)'GLID
strTmp=mid(strTmp,pos+1,len(strTmp))
document.frm_SJTJ.hn_GLID.value=strGLID pos=Instr(strTmp,";")
strCBR=Left(strTmp,pos-1)'承包人
strTmp=mid(strTmp,pos+1,len(strTmp))
document.frm_SJTJ.hn_CBR.value=strCBR
pos=Instr(strTmp,";")
strSBDH=Left(strTmp,pos-1)'试验编号
strTmp=mid(strTmp,pos+1,len(strTmp))
document.frm_SJTJ.hn_SBDH.value=strSBDH
strCBRBH=document.frm_SJTJ.hn_CBRBH.value+""
strGLDJ=document.frm_SJTJ.hn_GLDJ.value+""
strGCBH=document.frm_SJTJ.hn_GCBH.value+""
frm_SJTJ.submit
else
strGCMC=document.frm_SJTJ.hn_GCMC.value+"" '工程名称
strQSZH=document.frm_SJTJ.hn_QSZH.value+"" '起始桩号
strZZZH=document.frm_SJTJ.hn_ZZZH.value+"" '终止桩号
strGCID=document.frm_SJTJ.hn_GCID.value+"" '工程ID
strGLID="0" '管理ID----------------------------------------
strCBR=document.frm_SJTJ.hn_CBR.value+"" '承包人
strSBDH=document.frm_SJTJ.hn_SBDH.value+"" '试表代号
strCBRBH=document.frm_SJTJ.hn_CBRBH.value+""'承包人编号
strGLDJ=document.frm_SJTJ.hn_GLDJ.value+""'公路等级
strGCBH=document.frm_SJTJ.hn_GCBH.value+""'工程编号
frm_SJTJ.submit
end if
end if
end sub
</script>
sub Actlistview1_ondblclick()
frm_SJTJ.hn_KeyValue.value=parent.fr_tree.window.document.Acttreeview1.KeyValue
frm_SJTJ.hn_FKeyValue.value=parent.fr_tree.window.document.Acttreeview1.FKey
dim strTmp
strTmp=Actlistview1.strSYDH
if strTmp<>"null" then
dim strGCMC,strGCID,strGLID,strQSZH,strZZZH,strCBR,strSBDH,strSEND,strQZZH
dim pos,length
if strTmp<>"新增" then'用户点击的不是新增
pos=Instr(strTmp,";")
strGCMC=Left(strTmp,pos-1)'工程名称
strTmp=mid(strTmp,pos+1,len(strTmp))
document.frm_SJTJ.hn_GCMC.value=strGCMC
pos=Instr(strTmp,";")
strQZZH=Left(strTmp,pos-1)
strTmp=mid(strTmp,pos+1,len(strTmp))
pos=InStr(strQZZH,"~")
strQSZH=Left(strQZZH,pos-1)'起始桩号
strZZZH=mid(strQZZH,pos+1,len(strQSZH))'终止桩号
document.frm_SJTJ.hn_QSZH.value=strQSZH
document.frm_SJTJ.hn_ZZZH.value=strZZZH
pos=Instr(strTmp,";")
strTmp=mid(strTmp,pos+1,len(strTmp)) pos=Instr(strTmp,";")
strTmp=mid(strTmp,pos+1,len(strTmp)) pos=Instr(strTmp,";")
strGCID=Left(strTmp,pos-1)'GCID
strTmp=mid(strTmp,pos+1,len(strTmp))
document.frm_SJTJ.hn_GCID.value=strGCID
pos=Instr(strTmp,";")
strGLID=Left(strTmp,pos-1)'GLID
strTmp=mid(strTmp,pos+1,len(strTmp))
document.frm_SJTJ.hn_GLID.value=strGLID pos=Instr(strTmp,";")
strCBR=Left(strTmp,pos-1)'承包人
strTmp=mid(strTmp,pos+1,len(strTmp))
document.frm_SJTJ.hn_CBR.value=strCBR
pos=Instr(strTmp,";")
strSBDH=Left(strTmp,pos-1)'试验编号
strTmp=mid(strTmp,pos+1,len(strTmp))
document.frm_SJTJ.hn_SBDH.value=strSBDH
strCBRBH=document.frm_SJTJ.hn_CBRBH.value+""
strGLDJ=document.frm_SJTJ.hn_GLDJ.value+""
strGCBH=document.frm_SJTJ.hn_GCBH.value+""
frm_SJTJ.submit
else
strGCMC=document.frm_SJTJ.hn_GCMC.value+"" '工程名称
strQSZH=document.frm_SJTJ.hn_QSZH.value+"" '起始桩号
strZZZH=document.frm_SJTJ.hn_ZZZH.value+"" '终止桩号
strGCID=document.frm_SJTJ.hn_GCID.value+"" '工程ID
strGLID="0" '管理ID----------------------------------------
strCBR=document.frm_SJTJ.hn_CBR.value+"" '承包人
strSBDH=document.frm_SJTJ.hn_SBDH.value+"" '试表代号
strCBRBH=document.frm_SJTJ.hn_CBRBH.value+""'承包人编号
strGLDJ=document.frm_SJTJ.hn_GLDJ.value+""'公路等级
strGCBH=document.frm_SJTJ.hn_GCBH.value+""'工程编号
frm_SJTJ.submit
end if
end if
end sub
</script>
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货