私のテーブルからの値を持つCrystal Reportを作成しました。すべての列が正しく表示されますが、早い段階では切り捨てられます。 "Test 10"と言うべきですが、 "10"の部分がありません。私はデータベースに接続するが、私のコードで接続を覆す。レポートで列テキストが途切れる
オーバーライドのため「10」の部分が表示されませんか?またはこれを引き起こす何か他のものはありますか?レポートビューアで
Dim cryRpt As New ReportDocument()
cryRpt.Load("Location\report.rpt")
Dim cryRpttableLogoninfos As New TableLogOnInfos()
Dim cryRpttableLogoninfo As New TableLogOnInfo()
Dim cryRptConnectionInfo As New ConnectionInfo()
Dim cryRptTables As Tables
'para1
Dim crParameterFieldDefinitions As ParameterFieldDefinitions
Dim crParameterFieldDefinition As ParameterFieldDefinition
Dim crParameterValues As New ParameterValues
Dim crParameterDiscreteValue As New ParameterDiscreteValue
crParameterDiscreteValue.Value = value
crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields
crParameterFieldDefinition = crParameterFieldDefinitions.Item("@parameter")
crParameterValues = crParameterFieldDefinition.CurrentValues
crParameterValues.Clear()
crParameterValues.Add(crParameterDiscreteValue)
crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)
'para2
Dim crParameterFieldDefinitions1 As ParameterFieldDefinitions
Dim crParameterFieldDefinition1 As ParameterFieldDefinition
Dim crParameterValues1 As New ParameterValues
Dim crParameterDiscreteValue1 As New ParameterDiscreteValue
crParameterDiscreteValue1.Value = value
crParameterFieldDefinitions1 = cryRpt.DataDefinition.ParameterFields
crParameterFieldDefinition1 = crParameterFieldDefinitions1.Item("@parameter1")
crParameterValues1 = crParameterFieldDefinition1.CurrentValues
crParameterValues1.Clear()
crParameterValues1.Add(crParameterDiscreteValue1)
crParameterFieldDefinition1.ApplyCurrentValues(crParameterValues1)
cryRptConnectionInfo.ServerName = servername
cryRptConnectionInfo.DatabaseName = databasename
cryRptConnectionInfo.UserID = userid
cryRptConnectionInfo.Password = password
cryRptConnectionInfo.IntegratedSecurity = False
cryRptTables = cryRpt.Database.Tables
For Each CrTable As CrystalDecisions.CrystalReports.Engine.Table In cryRptTables
cryRpttableLogoninfo = CrTable.LogOnInfo
cryRpttableLogoninfo.ConnectionInfo = cryRptConnectionInfo
CrTable.ApplyLogOnInfo(cryRpttableLogoninfo)
Next
cryRpt.RecordSelectionFormula = "{table.value} = " & value
レポートのデータベース接続を変更し、接続を却下したvb.netのコードを無効にしましたが、それでもなお抱擁していますか? – AntoonVs