Visual Basic

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??

<br />
	Private Function ColumnLock(ByVal key As Boolean)<br />
		Try<br />
			Dim col As DataColumn<br />
			YourDataGrid.DataSource = YourDataSet<br />
			YourDataGridPA.SetDataBinding(YourDataSet, "YourTableName")<br />
			YourDataGrid.ReadOnly = key<br />
			For Each col In YourDataSet.Tables(0).Columns<br />
				col.ReadOnly = key<br />
			Next col<br />
		Catch Ex As Exception<br />
			msgbox(Ex.message)<br />
		End Try<br />
	End Function<br />