J
jieson
Unregistered / Unconfirmed
GUEST, unregistred user!
我的代码如下:<br>procedure TIEForm.Button4Click(Sender: TObject);<br><br>var<br> doc:IHTMLDocument2;<br> all:IHTMLElementCollection;<br> len,i:integer;<br> item:IHTMLElement;<br>begin<br> if Assigned(IEThis)then<br> begin<br> doc:=IEThis.Document as IHTMLDocument2;<br><br> //获得文档中所有的HTML元素集合<br> all:=doc.Get_all;<br><br><br> len:=all.Get_length;<br><br> //访问HTML元素集合中的每一个元素<br> for i:=0 to len-1 do<br> begin<br> item:=all.item(i,varempty) as IHTMLElement;<br> //a为表格id <br> if item.getAttribute('id',0) = 'a' then<br> begin<br> item.insertAdjacentHTML('AfterEnd','<TR id=3><TD id=31>333</TD><TD id=32>333</TD><TD id=33>333</TD></TR>');//问题就出在这个beforeend上了,如果是afterend就没有问题,但是在表格外添加<tr>和<td>是不行的<br> end;<br> end;<br> end;<br>谁对ie给出的那些接口熟啊,帮帮忙吧!分不够可以加的。