VB编程里面点击一个按钮，在下面的表格里面添加一行，这个怎么做？请高手解答，不胜感激！

Question

我能想到的办法是按文本读进来，找到 
</tr> 
</table> 
这一句，在上面添加一个  <td>&nbsp; </td> ，然后保存文本，重新刷新显示html
 

Answer 1

添加一行应该是再加个<tr> 节点吧,不只是<td> 
createElement()
你可以去asp版问问

Answer 2

将
<table width="100%" border="0" cellpadding="0" cellspacing="0"> 
改成下面的，即加一个ID
<table id="tab1" width="100%" border="0" cellpadding="0" cellspacing="0">将
<button name="B3">添加一行 </button>
改成下面的，增加一个事件
<button name="B3" onclick="addrow()">添加一行</button>将
</style>
</head> 
之间插入如下脚本<script>
function addrow(){
var row=document.getElementById("tab1").insertRow( document.getElementById("tab1").rows.length);
row.height=document.getElementById("tab1").rows.item(0).height;
var rowCount =document.getElementById("tab1").rows.length;
　var countCell=document.getElementById("tab1").rows.item(0).cells.length;
　for(var i=0;i<countCell;i++){
　　　var cell=row.insertCell(i);
　　　cell.innerHTML="&nbsp";
　　　cell.id=(rowCount)+"/"+(i+1);　　} 
}
</script>

Answer 3

哥们不能用VB 解决吗 比如用for循环什么的 

Answer 4

用VB读这个网页加一行？？asp就简单了。。直接在里面加循环 循环的次数 在每点一次的时候加1VB 就把这这个文件分成三段  中间那段就是多的那行代码就行啦。。

Answer 5

请问 能具体点帮我改出来吗 直接用vb 帮我把我的那个源文件改出来 谢谢 改完了100分直接给了 我也可以继续学习了 我现在到处找办法呢 这是一个作业题 我左思右想也做不出来 必须用VB做 这是我最郁闷的

Answer 6

我需要用Vb完成这个 请问你这个我怎么改才能改成 vb的啊 我知道你这个好使 我运行了 确实正确 很感谢你 如果你能用VB帮我写出来 我就给你分了 

Answer 7

那得要用WebBrowser控件啊，行吗

Answer 8

添加一个FROM，放一个按钮，一个WebBrowser控件，名称什么的都取默认值
Form中的代码如下Option Explicit'按钮事件
Private Sub Command1_Click()
    Dim iTableIndex As Integer      'Table的索引
    Dim iRow As Integer             '添加的行的索引
    Dim iCol As Integer             '总列数
    Dim i As Integer        '循环变量
    
    '由于Table没有ID和Name,所以采用循环的方法找到Table,
    For i = 0 To WebBrowser1.Document.All.length - 1
        If UCase(WebBrowser1.Document.All(i).nodename) = "TABLE" Then
            iTableIndex = i
            Exit For
        End If
    Next
    
    '在末尾插入一行
    WebBrowser1.Document.All(iTableIndex).insertRow WebBrowser1.Document.All(iTableIndex).rows.length
    
    '获取最大行号
    iRow = WebBrowser1.Document.All(iTableIndex).rows.length - 1
    
    '获取最大列号
    iCol = WebBrowser1.Document.All(iTableIndex).rows.Item(0).cells.length - 1
    
    For i = 0 To iCol
    
        '增加一列
        WebBrowser1.Document.All(iTableIndex).rows.Item(iRow).insertCell i
        
        '设置内容为一个空格
        WebBrowser1.Document.All(iTableIndex).rows.Item(iRow).cells(i).innerHTML = "&nbsp"
    
    Next
    
End Sub'加载窗体的时候打开文件
'HTML文件的位置及名称你自己改一下
Private Sub Form_Load()
    WebBrowser1.Navigate "file://d:\test.html"
End Sub