Visual Basic

Dave Kreskowiak wrote:

I'll make an educated guess and say that you lifted some VB6 code

Dave Kreskowiak wrote:

Under VB6, the Long type is a 32-bit signed integer, while under VB.NET, the Long type is a 64-bit signed integer.

ashwath1979 wrote:

Const ma111VID As Short = &H846S

ashwath1979 wrote:

Const RFCMD_REPRGM_CONFIRM As Int16 = &H691A

penguin5000 wrote:

CInt

Dim myStreamReader As StreamReader = New StreamReader(txtFilePath.Text)<br />
        Dim strLine As String<br />
        Dim strProdCode As String<br />
        Dim strTransCode As String<br />
        Dim intQuantity As Integer<br />
        Dim intValue As Integer<br />
        Dim intRunningQuantityTotal, intRunningValueTotal As Integer<br />
        Dim intNumberOfRows As Integer<br />
        Dim tblDataTable As New DataTable<br />
<br />
        tblDataTable = New DataTable("TrxContents")<br />
<br />
        Dim colProds As DataColumn = New DataColumn("Product")<br />
        Dim colTrans As DataColumn = New DataColumn("Trans Code")<br />
        Dim colQty As DataColumn = New DataColumn("Quantity")<br />
        Dim colValue As DataColumn = New DataColumn("Value")<br />
        Dim row As DataRow<br />
<br />
        tblDataTable.Columns.Add(colProds)<br />
        tblDataTable.Columns.Add(colTrans)<br />
        tblDataTable.Columns.Add(colQty)<br />
        tblDataTable.Columns.Add(colValue)<br />
<br />
        intRunningQuantityTotal = 0<br />
        intRunningValueTotal = 0<br />
        intNumberOfRows = 0<br />
        intOriginalLines = 0<br />
<br />
        Try<br />
<br />
            Do While myStreamReader.Peek <> -1<br />
                strLine = myStreamReader.ReadLine()<br />
                intOriginalLines = intOriginalLines + 1<br />
<br />
                If strLine.Substring(0, 1) = "K" Then<br />
                    row = tblDataTable.NewRow()<br />
                    intNumberOfRows = intNumberOfRows + 1<br />
<br />
                    'Read the Product Code (start at pos 6. 26 chars long)<br />
                    strProdCode = strLine.Substring(5, 26)<br />
                    row.Item("Product") = strProdCode<br />
<br />
                    'Read the transaction code (start at pos 63. 2 chars long)<br />
                    strTransCode = strLine.Substring(62, 2)<br />
                    row.Item("Trans Code") = strTransCode<br />
<br />
                    'Read the Quantity (start at pos 74. 12 chars long)<br />
                    intQuantity = strLine.Substring(73, 12)<br />
                    row.Item("Quantity") = intQuantity<br />
                    intRunningQuantityTotal = intRunningQuantityTotal + intQuantity<br />
<br />
                    'Read the Value (start at pos 86. 14 chars long)<br />
                    intValue = strLine.Substring(85, 14)<br />
                    row.Item("Value") = intValue<br />
                    intRunningValueTotal = intRunningValueTotal + intValue<br />
<br />
                    tblDataTable.Rows.Add(row)<br />
<br />
                End If<br />
<br />
            Loop<br />
            myStreamReader.Close()<br />
<br />
            Dim ds As New DataSet<br />
            ds = New DataSet<br />
<br />
            Dim totValue As Integer = Convert.ToInt32(tblDataTable.Compute("Sum(Value)", "Product = 'P199'"))<br />
            MessageBox.Show(totValue)<br />
<br />
            ds.Tables.Add(tblDataTable)<br />
            Me.grdDataGrid.SetDataBinding(ds, "TrxContents")<br />
<br />
        Catch<br />
<br />
                ... some stuff<br />
<br />
        End Try

Dim colValue As DataColumn = New DataColumn("Value", GetType(Integer))<br />
<br />
intValue = Integer.Parse(strLine.Substring(85, 14))

Subjugate wrote:

What can i do to allow the user to read only but not to write??