Visual Basic

Imports System.Data.OleDb
Imports CrystalDecisions.CrystalReports.Engine


Public Class Qmatereportplus

    Private Sub btqgetreport_Click(sender As Object, e As EventArgs) Handles btqgetreport.Click

        Getreportdisplay.ReportSource = Application.StartupPath + "\Qmateplusreport.rpt"
        Getreportdisplay.SelectionFormula = "{excavationbkfill.Refno} = '" & txtdisplaydetails.Text.ToString() & "'"
        Getreportdisplay.Refresh()
        Getreportdisplay.RefreshReport()

    End Sub
End Class

1	10197700	DA0518	2	DA0532	1	DA0539	1	DA0546	2	DA0557	2	DA0550	0
2	10197701	DA0005	2	DA0532	1	DA0539	1	DA0040	2	DA0113	2	DA0550	0
3	10197702	DA0005	3	DA0075	1	DA0059	1	DA0040	2	DA0107	2	DA0091	0
4	10197703	DA0005	4	DA0077	1	DA0061	1	DA0040	2	DA0109	2	DA0093	0

10197700	
DA0518	2
DA0532	1
DA0539	1
DA0546	2
DA0557	2
10197701	
DA0005	2
DA0532	1
DA0539	1
DA0040	2
DA0113	2
10197702	
DA0005	3
DA0075	1
DA0059	1
DA0040	2
DA0107	2

//This code is working but i want is vice versa of the sample output plus current year...
Public Sub incrPR()
        Dim curValue As Integer
        Dim result As String
        Dim s As String = "PR"
        Dim yr As String = Now.Year.ToString()
        Using con As SqlConnection = New SqlConnection(ConString)
            con.Open()
            Dim cmd = New SqlCommand("Select MAX(SpecialOrderNo) FROM SpecialOrder", con)
            result = cmd.ExecuteScalar().ToString()
            cmd.Parameters.Clear()
            If String.IsNullOrEmpty(result) Then
                result = "PR000"
            End If
            result = result.Substring(3)
            Int32.TryParse(result, curValue)
            curValue = curValue + 1
            result = s + curValue.ToString("D3")
            txtno.Text = result
        End Using
    End Sub

//Sample output: PR001, PR002

//Question: How to Increment Number with current year and Characters? 
//Expected sample output: 001-2018-PR

//Thank you

Hello all.

I am using the FMOD libraries to perform a spectrum analyzer, the results of the call to the library store in the array 'Spectrum ()' type 'Single', later these are passed to the array 'InSpect ()' type 'Integer '

The problem I have in the conversion of 'Single to Integer' gives overflow error, once I examine the data in the array 'InSpect ()' I have nothing are empty, while in the array 'Spectrum ()' are all the data, I have not yet found such an error or failure.

Let's see if you can help me, Thanks.

The code is following (summarized):

Dim Spectrum(1023) As Single
Dim InSpect(1023) As Integer
​Dim i as Long
Dim DetSpectro As Long


  Call FMOD_System_GetSpectrum(system, Spectrum(0), 512, count, FMOD_DSP_FFT_WINDOW_TRIANGLE)
  DetSpectro = system
  CopyMemory = Spectrum(0), ByVal DetSpectro , 1024 * 4   'convert long into integer.
   
    For i = 1 To 1023 Step 1
          InSpect(i) = Spectrum(i)     'convert Single to Integer    overflow error
    Next