这段ASP的代码如何改成VB的呢，用什么方法都可以，越简单越好。

Question

本帖最后由 tianwei76 于 2011-07-20 17:15:04 编辑

Answer 1

如何把这表格，改成DataGrid呢

Answer 2

嵌入一个webbrowser，将上面数据写到htm文件，然后直接navigate就行了。

Answer 3

部件添加mshflexgrid控件，然后大体如下，细节自已改吧：Private Sub Form_Load()
Dim i
Dim j
    i = 0
    j = 0
    MSHFlexGrid1.Cols = 6
    MSHFlexGrid1.Rows = 43
    MSHFlexGrid1.FixedCols = 0    Do While j < 42
        Set rs = Conn.Execute("select a,c,d,e from table1 where UserID='000'")
        If rs("a") >= 0 Then
            Set rs1 = Game.Execute("select b from Table2 where ID=" & rs("id"))
                    MSHFlexGrid1.TextMatrix(j, 0) = j + 1
            If Not rs1.EOF Then
                    MSHFlexGrid1.TextMatrix(j, 1) = rs("a")
                    MSHFlexGrid1.TextMatrix(j, 2) = rs1("b")
                    MSHFlexGrid1.TextMatrix(j, 3) = rs("c")
                    MSHFlexGrid1.TextMatrix(j, 4) = rs("d")
                    MSHFlexGrid1.TextMatrix(j, 5) = rs("e")
            Else
                    MSHFlexGrid1.TextMatrix(j, 1) = rs("a")
            End If
            rs1.Close
        End If
        j = j + 1
        i = i + 8
        rs.Close
    Loop
    End IfEnd Sub