A页(VB): Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
If Me.IsPostBack = False Then
btn_Customer_Name.Attributes.Add("OnClick", _
"winOpen('../spc/Client_Consult.aspx?" _
+ "frmObject=quote" _
+ "&frmControl=txt_Customer_ID,txt_Customer_Name,txt_Customer_linkman," _
+ "txt_Customer_phone,txt_Customer_Tax,txt_ShuiMa,txt_HB_Type,txt_SS_Num," _
+ "txt_FK_Time" _
+ "&controlName=','Client_ConsultQuote',400,320,300,150)")
'/* 隐藏添加数据的Panel */
'Add_Panel.Visible = false;
End If
End SubB页(VB),该页有datagrid:
Private Sub dtg_List_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles dtg_List.ItemDataBound
'如果当前项不为空
If (e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem) Then
e.Item.Attributes.Add("OnClick", "passPageVaule(this,dtg_List,'" + frm_object + "','" + frm_control + "','" + frm_control_name + "');window.close()")
e.Item.Style.Add("CURSOR", " hand")
e.Item.Attributes.Add("onMouseOver", "CurrentColor=this.style.backgroundColor;this.style.backgroundColor='#6699FF'")
e.Item.Attributes.Add("onMouseOut", "this.style.backgroundColor=CurrentColor")
End If
End Sub///////////////////////////////////////////////////////////////////
其中B页的ASPX中
<script src="../js/JSCommon.js" type="text/javascript"></script>
在JSCommon.js中有passPageVaule方法function passPageVaule(obj,dataTable,frmname,frmControl,frmControlName){
var strArr = new Array();
var strArrName = new Array();
try{
strArr = frmControl.split(",");
strArrName = frmControlName.split(",");
for(var i=0;i<strArr.length;i++){
for(var j=0;j<dataTable.rows[0].cells.length;j++){
if(strArrName[i] == dataTable.rows[0].children[j].innerText){
eval("window.opener.parent.frames['right'].document."+frmname+"."+strArr[i]+".value='"+ obj.cells[j].innerText+"'") ;
}
}
}
}catch(ex){
}
}
'在此处放置初始化页的用户代码
If Me.IsPostBack = False Then
btn_Customer_Name.Attributes.Add("OnClick", _
"winOpen('../spc/Client_Consult.aspx?" _
+ "frmObject=quote" _
+ "&frmControl=txt_Customer_ID,txt_Customer_Name,txt_Customer_linkman," _
+ "txt_Customer_phone,txt_Customer_Tax,txt_ShuiMa,txt_HB_Type,txt_SS_Num," _
+ "txt_FK_Time" _
+ "&controlName=','Client_ConsultQuote',400,320,300,150)")
'/* 隐藏添加数据的Panel */
'Add_Panel.Visible = false;
End If
End SubB页(VB),该页有datagrid:
Private Sub dtg_List_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles dtg_List.ItemDataBound
'如果当前项不为空
If (e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem) Then
e.Item.Attributes.Add("OnClick", "passPageVaule(this,dtg_List,'" + frm_object + "','" + frm_control + "','" + frm_control_name + "');window.close()")
e.Item.Style.Add("CURSOR", " hand")
e.Item.Attributes.Add("onMouseOver", "CurrentColor=this.style.backgroundColor;this.style.backgroundColor='#6699FF'")
e.Item.Attributes.Add("onMouseOut", "this.style.backgroundColor=CurrentColor")
End If
End Sub///////////////////////////////////////////////////////////////////
其中B页的ASPX中
<script src="../js/JSCommon.js" type="text/javascript"></script>
在JSCommon.js中有passPageVaule方法function passPageVaule(obj,dataTable,frmname,frmControl,frmControlName){
var strArr = new Array();
var strArrName = new Array();
try{
strArr = frmControl.split(",");
strArrName = frmControlName.split(",");
for(var i=0;i<strArr.length;i++){
for(var j=0;j<dataTable.rows[0].cells.length;j++){
if(strArrName[i] == dataTable.rows[0].children[j].innerText){
eval("window.opener.parent.frames['right'].document."+frmname+"."+strArr[i]+".value='"+ obj.cells[j].innerText+"'") ;
}
}
}
}catch(ex){
}
}
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货