Click here to Skip to main content
15,867,453 members
Home / Discussions / Visual Basic
   

Visual Basic

 
QuestionRead from text file Pin
mr jets17-May-07 12:26
mr jets17-May-07 12:26 
AnswerRe: Read from text file Pin
Christian Graus17-May-07 13:29
protectorChristian Graus17-May-07 13:29 
GeneralRe: Read from text file Pin
Dave Kreskowiak17-May-07 15:28
mveDave Kreskowiak17-May-07 15:28 
GeneralRe: Read from text file Pin
mr jets17-May-07 15:43
mr jets17-May-07 15:43 
GeneralRe: Read from text file Pin
Christian Graus17-May-07 15:57
protectorChristian Graus17-May-07 15:57 
GeneralRe: Read from text file Pin
mr jets17-May-07 16:18
mr jets17-May-07 16:18 
GeneralRe: Read from text file Pin
Christian Graus17-May-07 16:32
protectorChristian Graus17-May-07 16:32 
QuestionCrystal reports XI r.2 and Vb.net (subreports) Pin
VbdevMartin17-May-07 10:52
VbdevMartin17-May-07 10:52 
I have 2 tables linked but I cannot seem to get any data to populate the subreport
I am at a loss. Is it possible to have 2 setdatasource statements.
I have a sub report which populates fine, just passing params
then the main text which pulls from a sql db which is fine and another
subreport which the headers shows up okay (I pass params to get the header text, but the data which is from another sql db does not show up. it must be something in the below snippet I am doing incorrectly. I am using dataadapters.


Dim crLtr_New As New BlueChoiceSolutionsLetterandReport.ltr_Ineligible_with_RACI

For i = 0 To 0 'Me.DsAll1.Tables("dbo_get_ineligible_with_sum").Rows.Count - 1
'following line added 5-8-07 mgm testing
crLtr_New = New BlueChoiceSolutionsLetterandReport.ltr_Ineligible_with_RACI
Soln_id = Trim(Me.DsAll1.Tables("dbo_get_ineligible_with_sum").Rows(i)("soln_id"))

'added 5-9-2007 mgm
Me.DsAll1.Tables("dbo_usp_WS_RACI_Summary_Reports").Clear()

'if Me.DsAll1.Tables("dbo_get_ineligible_with_sum").Rows(i)("soln_id") <> sOldSolnId Then
' Me.DsAll1.Tables("dbo_get_summary").Clear()
' Me.sdaget_summary.SelectCommand.Parameters("@soln_id").Value = Me.DsAll1.Tables("dbo_get_ineligible_with_sum").Rows(i)("soln_id")
'Me.sdaget_summary.Fill(Me.DsAll1.Tables("dbo_get_summary"))
Try
Me.ssdausp_WS_RACI_Summary_Reports.SelectCommand.Parameters("@Soln_id").Value = Soln_id
Me.ssdausp_WS_RACI_Summary_Reports.Fill(Me.DsAll1.Tables("dbo_usp_WS_RACI_Summary_Reports"))
Me.sscusp_WS_RACI_Summary_Reports.Parameters("@Soln_id").Value = Soln_id
Catch ex As Exception
MsgBox(ex)
Exit Sub
End Try
'End If

With lblStat
.Text = "Setting Report Parameters"
.BackColor = Color.White
.Refresh()
End With

sOldSolnId = Me.DsAll1.Tables("dbo_get_ineligible_with_sum").Rows(i)("soln_id")

crLtr_New.Database.Tables("dbo_usp_WS_RACI_Summary_Reports").SetDataSource(Me.DsAll1.Tables("dbo_usp_WS_RACI_Summary_Reports"))

'crLtr_New.SetParameterValue("prmSoln_Id", Me.DsAll1.Tables("dbo_get_ineligible_with_sum").Rows(i)("soln_id"))
'crLtr_New.SetParameterValue("prmRpt_Dt", Me.DsAll1.Tables("dbo_get_ineligible_with_sum").Rows(i)("ltr_dt"))
crLtr_New.SetParameterValue("prmRACI", Me.DsAll1.Tables("dbo_get_ineligible_with_sum").Rows(i)("group_raci"))

crLtr_New.SetParameterValue("prmAddr_Ln1", Me.DsAll1.Tables("dbo_get_ineligible_with_sum").Rows(i)("addr_ln_1"))
crLtr_New.SetParameterValue("prmAddr_Ln2", Me.DsAll1.Tables("dbo_get_ineligible_with_sum").Rows(i)("addr_ln_2"))
crLtr_New.SetParameterValue("prmAddr_Ln3", Me.DsAll1.Tables("dbo_get_ineligible_with_sum").Rows(i)("addr_ln_3"))
crLtr_New.SetParameterValue("prmAddr_Ln4", "") 'Temp dummy var
crLtr_New.SetParameterValue("prmLtr_DtW", Me.DsAll1.Tables("dbo_get_ineligible_with_sum").Rows(i)("ltr_dt"))
crLtr_New.SetParameterValue("prmProvId", Me.DsAll1.Tables("dbo_get_ineligible_with_sum").Rows(i)("prov_id"))
crLtr_New.SetParameterValue("prmDear", Me.DsAll1.Tables("dbo_get_ineligible_with_sum").Rows(i)("dear_txt"))
crLtr_New.SetParameterValue("prmPhone", Me.DsAll1.Tables("dbo_get_ineligible_with_sum").Rows(i)("phone_txt"))

'crLtr_New.SetParameterValue("prmEff_Dt", Me.DsAll1.Tables("dbo_get_ineligible_with_sum").Rows(i)("ltr_dt"))
crLtr_New.SetParameterValue("prmModeled", Me.DsAll1.Tables("dbo_usp_WS_RACI_Summary_Reports").Rows(i)("Modeled"))

'*************************Sub report Graph Code
Me.DsAll1.Tables("dbo_usp_det_rpt_get_report_amt_util_soln_id").Clear()

' Me.sdausp_det_rpt_get_report_amt_util_soln_id.Fill(Me.DsAll1.Tables("dbo_usp_det_rpt_get_report_amt_util_soln_id"))
' check for rowcount and check to make sure data is being passed to somewhere
Try
Me.sdausp_det_rpt_get_report_amt_util_soln_id.SelectCommand.Parameters("@ntwk_id").Value = Network_id
Me.sdausp_det_rpt_get_report_amt_util_soln_id.SelectCommand.Parameters("@Soln_id").Value = Soln_id
Me.sdausp_det_rpt_get_report_amt_util_soln_id.Fill(Me.DsAll1.Tables("dbo_usp_det_rpt_get_report_amt_util_soln_id"))
Catch ex As Exception
MsgBox(ex)
Exit Sub
End Try


'parameters for sub report Graphs
'************************************************************
'crLtr_New.OpenSubreport("ltr_ineligible_raci_3_text.rpt")
'crLtr_New.Subreports(1).SetDataSource(Me.DsAll1.Tables("dbo_usp_det_rpt_get_report_amt_util_soln_id"))
crLtr_New.Database.Tables("dbo_usp_det_rpt_get_report_amt_util_soln_id").SetDataSource(Me.DsAll1.Tables("dbo_usp_det_rpt_get_report_amt_util_soln_id"))


For j = 0 To Me.DsAll1.Tables("dbo_usp_det_rpt_get_report_amt_util_soln_id").Rows.Count - 1
sRACIdec = "The RACI for " & Trim(Me.DsAll1.Tables("dbo_usp_det_rpt_get_report_amt_util_soln_id").Rows(j)("working_specialty_desc").ToString)
sRACIdec = sRACIdec & " in " & Trim(Me.DsAll1.Tables("dbo_usp_det_rpt_get_report_amt_util_soln_id").Rows(j)("tccwin_area_desc").ToString)
sRACIdec = sRACIdec & " for Solutions ID " & Trim(Me.DsAll1.Tables("dbo_usp_det_rpt_get_report_amt_util_soln_id").Rows(j)("soln_id").ToString)
sRACIdec = sRACIdec & " is " & Trim(Me.DsAll1.Tables("dbo_usp_det_rpt_get_report_amt_util_soln_id").Rows(j)("raci").ToString)

crLtr_New.SetParameterValue("prmsoln_id2", Me.DsAll1.Tables("dbo_usp_det_rpt_get_report_amt_util_soln_id").Rows(j)("soln_id"))
crLtr_New.SetParameterValue("prmworking_spec2", Me.DsAll1.Tables("dbo_usp_det_rpt_get_report_amt_util_soln_id").Rows(j)("working_specialty_desc"))
crLtr_New.SetParameterValue("prm_area_desc2", Me.DsAll1.Tables("dbo_usp_det_rpt_get_report_amt_util_soln_id").Rows(j)("tccwin_area_desc"))
crLtr_New.SetParameterValue("prmraci2", Me.DsAll1.Tables("dbo_usp_det_rpt_get_report_amt_util_soln_id").Rows(j)("raci"))
crLtr_New.SetParameterValue("prmdesc", sRACIdec)
Next j

-Mecca
QuestionOpen .txt file for exclusive use Pin
dBrong17-May-07 10:36
dBrong17-May-07 10:36 
AnswerRe: Open .txt file for exclusive use Pin
Dave Kreskowiak17-May-07 10:58
mveDave Kreskowiak17-May-07 10:58 
QuestionSending a filename to a Fortran app Pin
matt_hirst17-May-07 9:25
matt_hirst17-May-07 9:25 
AnswerRe: Sending a filename to a Fortran app Pin
Dave Kreskowiak17-May-07 11:09
mveDave Kreskowiak17-May-07 11:09 
GeneralRe: Sending a filename to a Fortran app Pin
matt_hirst20-May-07 2:32
matt_hirst20-May-07 2:32 
GeneralRe: Sending a filename to a Fortran app Pin
Dave Kreskowiak20-May-07 4:42
mveDave Kreskowiak20-May-07 4:42 
QuestionCondition Property Syntax Pin
Karma3125117-May-07 9:25
Karma3125117-May-07 9:25 
QuestionService deployment question? Pin
tcombs0717-May-07 8:53
tcombs0717-May-07 8:53 
AnswerRe: Service deployment question? Pin
Joseph Guadagno17-May-07 10:15
Joseph Guadagno17-May-07 10:15 
QuestionLooking for existing data... Pin
CCG317-May-07 7:35
CCG317-May-07 7:35 
AnswerRe: Looking for existing data... Pin
Dave Kreskowiak17-May-07 7:55
mveDave Kreskowiak17-May-07 7:55 
Questionshell return value Pin
tj2817-May-07 4:50
tj2817-May-07 4:50 
AnswerRe: shell return value Pin
Dave Kreskowiak17-May-07 5:05
mveDave Kreskowiak17-May-07 5:05 
AnswerRe: shell return value Pin
tj2817-May-07 5:24
tj2817-May-07 5:24 
GeneralRe: shell return value Pin
Dave Kreskowiak17-May-07 5:29
mveDave Kreskowiak17-May-07 5:29 
QuestionBackground image in VB.net Pin
Brizee17-May-07 4:25
Brizee17-May-07 4:25 
AnswerRe: Background image in VB.net Pin
Dave Kreskowiak17-May-07 5:38
mveDave Kreskowiak17-May-07 5:38 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.