这个是本人自己自定义开发的一个用于与foxtable接口的水晶报表工具,希望可以有需要的去下载
用法:
Dim crt As New cryreport.cryreport1
Dim ServerName As String="192.168.1.221"
Dim DBName As String="data"
Dim DBUserName As String="sa"
Dim DbUserPwd As String="sa"
crt.c & ServerName & ";initial catalog=" & DBName & ";user id =" & DBUserName & ";password=" & DBUserPwd
crt.sql="select top 10 * from cpcfa"
crt.filepath="c:\1.rpt"
crt.ShowDialog()