Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click Try IsValidData() If m_InvalidList.Count > 0 Then Dim sFields As String = "" For iCnt As Int32 = 0 To m_InvalidList.Count - 1 sFields &= m_InvalidList(iCnt).ToString & vbCrLf Next XtraMessageBox.Show(" Please Fill The Following Fields : " & vbCrLf & "--------------------------------------" & vbCrLf & sFields, "Field Validator", MessageBoxButtons.OK) Else SaveGenLedgerMaster() End If Catch ex As Exception ErrorLog(ex) End Try End Sub
Private Sub IsValidData() Try m_InvalidList.Clear() If xtbGLName.Text = "" Then m_InvalidList.Add("General Ledger Name") If cmbGLSchedule.Text = "" Then m_InvalidList.Add("Schedule name") If ccbCompany.Text = "" Then m_InvalidList.Add("Company") If ccbSegment.Text = "" Then m_InvalidList.Add("Segment") Catch ex As Exception ErrorLog(ex) End Try End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)