 |
|

รบกวนขอคำปรึกษาจากท่านผู้รู้ทั้งหลายช่วยดู codeหน่อยคะว่าจะต้องแก้ไขตรงไหนเพิ่มเติม คือจากรูป ถ้าเลือกหน่อยงานแล้วข้อมูลกลุ่มงานกับ serial no. จะต้องเปลี่ยนไปตามหน่วยงานที่เลือก จากนั้นถ้าเลือก serial no ให้ระบบดึงข้อมูลหมายเลขครุภัณฑ์ / IP Address / ประเภทอุปกรณ์ / ยี่ห้อ / รุ่น มาแสดงใน textbox พัฒนาโดยใช้ asp คะ ขอบคุณคะ
*** source code ที่ใช้คะ
1. drop down list ของหน่วยงาน
<select name="ddlOffice" size="1" id="ddlOffice" onchange="ListSubOffice(this.value);ListSerial(this.value)">
2. script drop down list serial no
function ListSerial(SelectValue)
{
form1.lstSerialNo.length = 0
//*** Insert null Default Value ***//
var myOption = new Option('','')
form1.lstSerialNo.options[form1.lstSerialNo.length]= myOption
<%
strSQL = "SELECT * FROM serial ORDER BY serial_id ASC "
Set objRec = Server.CreateObject("ADODB.Recordset")
objRec.Open strSQL, oConnection, 1,3
intRows = 0
While Not objRec.EOF
intRows = intRows + 1
%>
x = <%=intRows%>;
mySubList = new Array();
strGroup = <%=objRec.Fields("office_id").Value%>;
strValue = "<%=objRec.Fields("serial_id").Value%>";
strItem = "<%=objRec.Fields("serial").Value%>";
mySubList[x,0] = strItem;
mySubList[x,1] = strGroup;
mySubList[x,2] = strValue;
if (mySubList[x,1] == SelectValue){
var myOption = new Option(mySubList[x,0], mySubList[x,2])
form1.lstSerialNo.options[form1.lstSerialNo.length]= myOption
}
<%
objRec.MoveNext
Wend
%>
}
3. drop down list ของ serial no
<select name="lstSerialNo" id="lstSerialNo" style="width:100px" onChange="myFunction(this.value);" >
4. script myFunction
function myFunction(v) {
var data = v.split(",");
form1.txtAssetID.value=data[0];
form1.txtBrand.value=data[1];
form1.txtModelID.value=data[2];
form1.txtIPAddress.value=data[3];
form1.hdfSerial.value=data[4];
form1.txtHardware.value=data[5];
}
Tag : - - - -
|
|
 |
 |
 |
 |
Date :
2010-06-10 10:59:13 |
By :
nukrong |
View :
3164 |
Reply :
1 |
|
 |
 |
 |
 |
|
|
|
 |