这是你的For语句
创新互联公司10多年成都定制网页设计服务;为您提供网站建设,网站制作,网页设计及高端网站定制服务,成都定制网页设计及推广,对纯水机等多个方面拥有丰富的网站制作经验的网站建设公司。
For i = 0 To webtable.Rows.Count - 1
Label2.Text = "正在从远程服务器下载数据 " i "/" webtable.Rows.Count
CMD = New OleDbCommand(Dbcstr, Dbc)
CMD.ExecuteNonQuery()
webrow = webtable.Rows.Item(i)
Next
语句中Dbcstr一直没有变动过，所以你提交到数据库中的内容总是第一行。
修改如下，未调试。
Dbc.Open()
For i = 0 To webtable.Rows.Count - 1
Dim Dbcstr As String = "INSERT INTO PurchaseOrders ([PurchaseOrderID],……
Dbcstr = Dbcstr " VALUES('" webtable.rows(i).Item(0) "','" ……
'webrow.Item(0)改成webtable.rows(i).Item(0)，其他一样
CMD = New OleDbCommand(Dbcstr, Dbc)
CMD.ExecuteNonQuery()
Next
conn.Close()
Dbc.Close()
假如b窗体是form2,在a窗体中调用B窗体，直接dim frm as new form2,然后frm.show()就OK
可以先对数据库中的表数据进行正序排列，然后打印结果的时候将print放在循环外。
如：test表中有如下数据
现在要用游标取出最后一条，也就是“5，孙七”这条。
代码如下：
declare @id int --定义变量
declare @name varchar(10) --定义变量
declare cur_c cursor for select * from test order by id --定义游标
open cur_c --打开游标
fetch next from cur_c into @id,@name --取游标值到变量
while @@fetch_status = 0 --循环退出条件
begin --循环开始
fetch next from cur_c into @id,@name --继续取游标值到变量
end --循环结束
print cast(@id as varchar)+','+@name --打印最后一条结果
close cur_c --关闭游标
deallocate cur_c --释放游标
结果如图：
你确信只循环一次吗？我看不像，在最后添加上一句msgbox jishu1，多半显示3。
是在第二块代码中有问题，你应该把chaxun4 = xlsheet.Range("l1").Value + 2分别放到两个条件句中初始chaxun4变量。
因为上一个Do Until atmbianhaop = xlsheet.Range("B" chaxun4).Value 循环退出后，下一个循环一开始就符合退出条件了，所以循环没有进行了。
