主题：用内置的 WinForm.WebBrowser 却看不到数据， 求解？？

以下内容为程序代码:

1 Dim code As String
2 code=e.Form.Controls("TextBox1").text
3 Dim u As String
4 u="http://nufm.dfcfw.com/EM_Finance2014NumericApplication/JS.aspx?type=CT&cmd=" & code & "1&sty=CTBFTA&st=z&&js=(x)&token=70f12f2f4f091e459a279469fe49eca5"
5
6 Dim web As new System.Windows.Forms.WebBrowser
7 web.Navigate(u)
8 Do Until web.ReadyState = 4
9 Application.DoEvents
10 Loop
11
12 Dim str As String
13 str=web.DocumentText
14 str=str.Trim("""")
15
16 Dim V() As String
17 V = str.split(",")
18 str=V(2) & "[" & V(1) & "]＜Table＞＜tr＞＜td＞类型＜/td＞＜td＞流入＜/td＞＜td＞流出＜/td＞＜/tr＞"
19 str=str & "＜tr＞＜td＞超大单＜/td＞＜td＞" & (V(7)/10000) & "万元＜/td＞＜td＞" & (V(8)/10000) & "万元＜/td＞＜/tr＞"
20 str=str & "＜tr＞＜td＞大单＜/td＞＜td＞" & (V(11)/10000) & "万元＜/td＞＜td＞" & (V(12)/10000) & "万元＜/td＞＜/tr＞"
21 str=str & "＜tr＞＜td＞中单＜/td＞＜td＞" & (V(15)/10000) & "万元＜/td＞＜td＞" & (V(16)/10000) & "万元＜/td＞＜/tr＞"
22 str=str & "＜tr＞＜td＞小单＜/td＞＜td＞" & (V(19)/10000) & "万元＜/td＞＜td＞" & (V(20)/10000) & "万元＜/td＞＜/tr＞"
23 str=str & "＜/table＞"
24 str=str & V(24)
25 e.Form.Controls("WebBrowser1").BaseControl.DocumentText=str