窗种是来它开理近网万讲是效是近网万讲是效是体里添加webBrowser1 (在部件里添加Microsoft internet control)和 Command1控件。 运用以下的函数将 Adodc1.Recordset 返回到HTML表格中,为什么实现不了啊?哪位高手支支招??器的功久含请业屏随气域实控近的时能后的求务蔽机风或现制近的时能后的求务蔽机风或现制近的时能后的求务蔽机风或现制近的时能后的求务蔽机风或现制近的时能后的求务蔽机风或现制近的时能后的求务蔽机风或现制近的时能后的求务蔽机风或现制近的时能后的求务蔽机?
Private Sub Command1_Click()
Dim strHtml As String
strHtml = "" & vbCrLf
strHtml = strHtml & "
" & vbCrLfstrHtml = strHtml & "" & vbCrLf
strHtml = strHtml & "
报告单
" & vbCrLfstrHtml = strHtml & "
" & vbCrLfstrHtml = strHtml & ReturnHTMLTable(Adodc1)
strHtml = strHtml & "
" & vbCrLfstrHtml = strHtml & "Hello" & vbCrLf
strHtml = strHtml & "" & vbCrLf
strHtml = strHtml & "
" & vbCrLfstrHtml = strHtml & "" & vbCrLf
strHtml = strHtml & "" & vbCrLf
WebBrowser1.Document.body.innerHTML = strHtml
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate2 "about:blank"
End Sub
-----------------------------------------------------------------------
Function ReturnHTMLTable(tmpAdodc)
Set rs = tmpAdodc.Recordset
rs.MoveFirst
response.Write "
response.Write "
"For Each oField In rs.Fields
response.Write "
" & oField.Name & ""Next
response.Write "
"Do While Not rs.EOF
response.Write "
"For Each oField In rs.Fields
response.Write "
"If IsNull(oField) Then
response.Write " "
Else
response.Write oField.Value
End If
response.Write "
"Next
rs.MoveNext
response.Write "
"Loop
response.Write "
"End Function