2016-06-17 12 views
-1

私のテーブルからの値を持つ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 
+0

レポートのデータベース接続を変更し、接続を却下したvb.netのコードを無効にしましたが、それでもなお抱擁していますか? – AntoonVs

答えて

1

i>はウル 'テスト10' データが示されているラベル..

IIを選択>そのlableをクリックして、フィールドの書式]を選択し、書き込み..

iii>最初のタブで「拡大する」オプションをオンにします。

+0

Tanx m8どこにライトがあるのですが、常にオブジェクトの2行目に入っています。最初の行にどのようにしておくことができるのか分かります。 – AntoonVs

+0

全体のスペースでラベルの幅を広げるようにしてください。 –

+0

私はページ全体のラベルを増やしましたが、まだ2番目のルールに数字を入れています – AntoonVs

関連する問題