<html> <table id="lo" name="lo"> <tr><td>gdffd</td><td>gdffd</td><td>gdffd</td></tr> <tr><td>gdffd</td><td>gdffd</td><td>gdffd</td></tr> <tr><td>gdffd</td><td>gdffd</td><td>gdffd</td></tr> <tr><td>gdffd</td><td>gdffd</td><td>gdffd</td></tr> </table> <input type='button' name='cmdAdd' value='添加一行'> </html><script language=vbscript> '问题1,其实你点在TD上或TD中的子元素上在, sub lo_onclick() dim obj,thisTR Set obj=window.event.srcElement Set Thistr = GetParenObject("TR",obj,"TABLE") If Thistr Is Nothing Then Exit Sub If thistr.tagname <> "TR" Then Exit Sub msgbox thisTR.rowIndex end sub function GetParenObject(str,obj,strEnd) Do If obj.tagname=strEnd Or obj.tagname=str Then Exit do End If Set obj= obj.parentNode Loop If obj.tagname=str Then Set GetParenObject= obj Else Set GetParenObject=Nothing End If End Function'问题2,增加一行 Sub cmdAdd_onclick() AddRows(lo) End Sub Sub AddRows(ta) Dim newTr,newTd1,newTd2,newTd3 Set newTr=ta.insertRow(-1) Set newTd1 = newTr.insertCell(-1) Set newTd2 = newTr.insertCell(-1) Set newTd3 = newTr.insertCell(-1) '................................. newTd1.innerHTML = "第1格的内容" newTd2.innerHTML = "第2格的内容" newTd3.innerHTML = "第3格的内容"
End Sub</script>
谢谢各位的回复,我的代码是这样的,存在的问题就是增加一行,怎么去改变其他的行的序号(第一列‘TH’)依次增加1?? function addRowaddRow(table,obj){ var the_row,the_cell;
the_row = obj.parentNode.rowIndex==null?-1: ((obj.parentNode.rowIndex)+1); var newrow=table.insertRow(the_row);
th.parentNode.rowIndex2.row.insertCell只插入td,那th怎么增加
th = document.createElement("th");
row.appendChild(th);2.第一列th是行序号,每增加一行,要递增,怎么实现?
设置id即可
<table id="lo" name="lo">
<tr><td>gdffd</td><td>gdffd</td><td>gdffd</td></tr>
<tr><td>gdffd</td><td>gdffd</td><td>gdffd</td></tr>
<tr><td>gdffd</td><td>gdffd</td><td>gdffd</td></tr>
<tr><td>gdffd</td><td>gdffd</td><td>gdffd</td></tr>
</table>
<input type='button' name='cmdAdd' value='添加一行'>
</html><script language=vbscript>
'问题1,其实你点在TD上或TD中的子元素上在,
sub lo_onclick()
dim obj,thisTR
Set obj=window.event.srcElement
Set Thistr = GetParenObject("TR",obj,"TABLE")
If Thistr Is Nothing Then Exit Sub
If thistr.tagname <> "TR" Then Exit Sub
msgbox thisTR.rowIndex
end sub function GetParenObject(str,obj,strEnd)
Do
If obj.tagname=strEnd Or obj.tagname=str Then
Exit do
End If
Set obj= obj.parentNode
Loop
If obj.tagname=str Then
Set GetParenObject= obj
Else
Set GetParenObject=Nothing
End If
End Function'问题2,增加一行
Sub cmdAdd_onclick()
AddRows(lo)
End Sub
Sub AddRows(ta)
Dim newTr,newTd1,newTd2,newTd3
Set newTr=ta.insertRow(-1)
Set newTd1 = newTr.insertCell(-1)
Set newTd2 = newTr.insertCell(-1)
Set newTd3 = newTr.insertCell(-1)
'.................................
newTd1.innerHTML = "第1格的内容"
newTd2.innerHTML = "第2格的内容"
newTd3.innerHTML = "第3格的内容"
End Sub</script>
function addRowaddRow(table,obj){
var the_row,the_cell;
the_row = obj.parentNode.rowIndex==null?-1: ((obj.parentNode.rowIndex)+1);
var newrow=table.insertRow(the_row);
for (var i=0;i<table.rows[0].cells.length;i++) {
if(i==0 || i==1){
var orderth = document.createElement('th');
orderth.id = KenoahTWBase.generateGUID();
orderth.class = 'execltitle01';
orderth.setAttribute("align","center");
orderth.innerHTML = the_row;
newrow.appendChild(orderth);
var attchth = document.createElement('th');
attchth = KenoahTWBase.generateGUID();
attchth.class = 'execltitle02';
attchth.setAttribute("align","center");
attchth.innerHTML = " ";
newrow.appendChild(attchth);
}else{
the_cell=newrow.insertCell(i);
var dicTMP = "<div id='"+KenoahTWBase.generateGUID()+"' kenoah_tw='TRUE' tw_value='' tw_pcType='cell' style='width:100%'> </div>"
the_cell.innerHTML=dicTMP;
}
}
}