神马品牌网心肌病的治疗:ACCESS数据库高手进
来源：百度文库 编辑：神马品牌网 时间：2024/04/30 05:16:00
那不是保存再数据裤里面的吧！！
应该是保存在本地的！！
是保存再数据裤里面的！！
你可以调用IE浏览器进行查看!!
举个例子
Function IEbroswerdata(arrayData(), time_now)
time_now = StartTime
dataName = Array("ID", "dsffdssd", "dfsd", "sdfsdfsd", "sad", "dghfgh")
Open App.Path + htmldata For Output As #1 '´´½¨ÓÃÓڲ鿴µÄHtmlÎļþ
Print #1, "<html><head><Title>Êý¾Ý</Title></head><body>"
Print #1, "<link rel=" & Chr(34) & "stylesheet" & Chr(34) & " type=" & Chr(34) & "text/css" & Chr(34) & " href=" & Chr(34) & App.Path & htmlStyle & Chr(34) & ">"
Print #1, "<center><table width=60%><tr>"
For i = 0 To UBound(dataName) 'дÈë±í¸ñ×Ö¶Î
Print #1, "<td>" & dataName(i) & "</td>"
Next
Print #1, "</tr>"
For i = 0 To (UBound(arrayData) + 1) / 4 - 1
time_now = Addate(arrayData(i * 4 + 3), time_now) 'È¡µÃÈÕÆÚʱ¼ä
Print #1, "<tr> <td>" & i + 1 & "</td>" 'ID
Print #1, "<td>" & time_now & "</td>" 'ÈÕÆÚʱ¼ä
Print #1, "<td>" & arrayData(i * 4 + 3) & "</td>" '¼ä¸ô
Print #1, "<td>" & arrayData(i * 4 + 0) & "</td>" 'ÓÍѹ
Print #1, "<td>" & arrayData(i * 4 + 1) & "</td>" 'ÓÍÎÂ
Print #1, "<td>" & arrayData(i * 4 + 2) & "</td>" 'ÒÇÎÂ
Next
Print #1, "</tr>"
Print #1, "</table></center>"
Print #1, "</body></html>"
Close #1
IExplorer (App.Path + htmldata) 'ÓÃä¯ÀÀÆ÷´ò¿ª
End Function
汗。贴这么多！