public void RefreshSummaryFields() { var LIndex = 0; var Table_ListIndex = 0; System.Data.DataSet rsSelected = null; if (My.MyProject.Forms.frmIndicatorReportSetup.lstHeading.SelectedIndex == -1) { goto DoneRefreshSummaryFields; } // //retrieve the list of Indicators // modGlobal.gv_sql = "Select * from vuSummaryFieldNames order by fieldname"; modGlobal.gv_rs = modGlobal.gv_cn.OpenResultset(modGlobal.gv_sql, RDO.ResultsetTypeConstants.rdOpenStatic); // // // modGlobal.gv_sql = "select * from vuDenominatorSummaryFields where SubGroupID = " + Microsoft.VisualBasic.Compatibility.VB6.Support.GetItemData(My.MyProject.Forms.frmIndicatorReportSetup.lstHeading, My.MyProject.Forms.frmIndicatorReportSetup.lstHeading.SelectedIndex); rsSelected = modGlobal.gv_cn.OpenResultset(modGlobal.gv_sql, RDO.ResultsetTypeConstants.rdOpenStatic); // //fill the list box // lstSummaryFields.Items.Clear(); //UPGRADE_WARNING: Couldn't resolve default property of object Table_ListIndex. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"' Table_ListIndex = -1; //UPGRADE_WARNING: Couldn't resolve default property of object LIndex. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"' LIndex = -1; while (!modGlobal.gv_rs.EOF) { //UPGRADE_WARNING: Couldn't resolve default property of object LIndex. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"' LIndex = LIndex + 1; //UPGRADE_WARNING: Couldn't resolve default property of object LIndex. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"' //UPGRADE_WARNING: Couldn't resolve default property of object Table_ListIndex. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"' Table_ListIndex = LIndex; lstSummaryFields.Items.Add(new Microsoft.VisualBasic.Compatibility.VB6.ListBoxItem(modGlobal.gv_rs.rdoColumns["FieldName"].Value + " (" + modGlobal.gv_rs.rdoColumns["SubGroupID"].Value + ")", modGlobal.gv_rs.rdoColumns["SubGroupID"].Value)); if (rsSelected.RowCount > 0) { rsSelected.MoveFirst(); while (!rsSelected.EOF) { if (Strings.Trim(rsSelected.rdoColumns["FieldName"].Value) == Strings.Trim(modGlobal.gv_rs.rdoColumns["FieldName"].Value)) { //UPGRADE_ISSUE: ListBox property lstSummaryFields.NewIndex was not upgraded. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="F649E068-7137-45E5-AC20-4D80A3CC70AC"' lstSummaryFields.SetItemChecked(lstSummaryFields.NewIndex, true); } rsSelected.MoveNext(); } } modGlobal.gv_rs.MoveNext(); } rsSelected.Close(); // DoneRefreshSummaryFields: }
private void cmdPrint_Click(System.Object eventSender, System.EventArgs eventArgs) { Printer Printer = new Printer(); short Index = 0; int li_cnt = 0; System.Data.DataSet rsTemp = null; // Printer.Print MSRDCGroups.Resultset!CriteriaTitle rsTemp = MSRDCGroups.Resultset; rsTemp.MoveFirst(); while (!rsTemp.EOF) { Printer.Print(FileSystem.TAB(15), rsTemp.rdoColumns["CriteriaTitle"]); rsTemp.MoveNext(); } Printer.Print("End of Saved Logic List"); Printer.EndDoc(); }
private void RefreshParentCriteria() { string ls_display = null; System.Data.DataSet rs_Criteria = null; int li_SetCnt = 0; short li_SetIndex = 0; string ls_SetJoinOp = null; int li_MaxSet = 0; lstAnswerCriteria.Items.Clear(); modGlobal.gv_sql = "SELECT CMSParentAnswerCriteriaSet, JoinOperator FROM tbl_Setup_CMSParentAnswerCriteriaSet " + " WHERE CMSParentCDID = " + Microsoft.VisualBasic.Compatibility.VB6.Support.GetItemData(lstParents, lstParents.SelectedIndex) + " ORDER BY CMSParentAnswerCriteriaSet"; modGlobal.gv_rs = modGlobal.gv_cn.OpenResultset(modGlobal.gv_sql, RDO.ResultsetTypeConstants.rdOpenKeyset); if (!modGlobal.gv_rs.EOF) { modGlobal.gv_rs.MoveLast(); li_MaxSet = modGlobal.gv_rs.RowCount; modGlobal.gv_rs.MoveFirst(); while (!modGlobal.gv_rs.EOF) { ls_SetJoinOp = modGlobal.gv_rs.rdoColumns["JoinOperator"].Value; modGlobal.gv_sql = "SELECT * FROM tbl_Setup_CMSParentAnswerCriteria " + " WHERE CMSParentCDID = " + Microsoft.VisualBasic.Compatibility.VB6.Support.GetItemData(lstParents, lstParents.SelectedIndex) + " AND CMSParentAnswerCriteriaSet = " + modGlobal.gv_rs.rdoColumns["CMSParentAnswerCriteriaSet"].Value + " ORDER BY CMSParentAnswerCriteriaSet, CMSParentAnswerCriteriaID"; rs_Criteria = modGlobal.gv_cn.OpenResultset(modGlobal.gv_sql, RDO.ResultsetTypeConstants.rdOpenKeyset); rs_Criteria.MoveLast(); li_SetCnt = rs_Criteria.RowCount; rs_Criteria.MoveFirst(); li_SetIndex = 0; ls_display = "SET " + modGlobal.gv_rs.rdoColumns["CMSParentAnswerCriteriaSet"].Value + ": ( "; while (!rs_Criteria.EOF) { li_SetIndex = li_SetIndex + 1; ls_display = ls_display + " " + rs_Criteria.rdoColumns["CriteriaTitle"].Value; if (li_SetCnt == li_SetIndex) { if (li_SetCnt == 1) { ls_display = ls_display + " (" + rs_Criteria.rdoColumns["JoinOperator"].Value + ") )"; } else { ls_display = ls_display + " )"; } } else { ls_display = ls_display + " " + rs_Criteria.rdoColumns["JoinOperator"].Value + " "; } lstAnswerCriteria.Items.Add(new Microsoft.VisualBasic.Compatibility.VB6.ListBoxItem(ls_display, rs_Criteria.rdoColumns["CMSParentAnswerCriteriaID"].Value)); ls_display = ""; rs_Criteria.MoveNext(); } rs_Criteria.Close(); if (modGlobal.gv_rs.rdoColumns["CMSParentAnswerCriteriaSet"].Value < li_MaxSet) { lstAnswerCriteria.Items.Add(ls_SetJoinOp); } modGlobal.gv_rs.MoveNext(); } } modGlobal.gv_rs.Close(); }