Nemowon

学习成长!

博客园 首页 联系 订阅 管理

2013年5月15日

摘要: sn3462 sn3462 2 2 2013-05-15T11:58:00Z 2013-05-15T12:01:00Z 2 549 3135 scc 26 7 3677 12.00 Clean Clean false 7.8 磅 0 2 false false false EN-US ZH-CN X-NONE MicrosoftInternetExplorer4 ... 阅读全文
posted @ 2013-05-15 20:02 Nemowon 阅读(421) 评论(1) 推荐(0)

2013年5月10日

摘要: Global m_Report As ReportGlobal m_CRRunTime As New CRAXDRT.ApplicationPublic Function ViewReport() As IntegerPrivate Sub OKButton_Click()Call m_CRRunTime.LogOnServer(var_driver, _var_name, _var_database, _var_username, _var_password)Set m_Report = m_CRRunTime.OpenReport("c:\test\test.rpt") 阅读全文
posted @ 2013-05-10 10:51 Nemowon 阅读(121) 评论(0) 推荐(0)

摘要: Private Sub Command1_Click()写文件示例Dim strFileName As String '文件名Dim lngHandle As Long '句柄Dim strWrite As String '要写入的文本内容strFileName = App.Path & "\a.txt"''''App.Path & "\a.txt"相对路径"c:\w.txt"绝对路径lngHandle = FreeFile() '取得句柄准备要写入的内容 阅读全文
posted @ 2013-05-10 10:30 Nemowon 阅读(597) 评论(0) 推荐(0)