Skip to main content

Posts

Showing posts from October, 2017

AVOID DUPLICATE ENTRY TO DATATABLE

 Dim Temukan As DataRow() = DTSumPO.Select("PONUM ='" & vPO & "' AND POQTY = '" & vQTY & "'")                                         If Temukan.Length = 0 Then                                             DTSumPO.Rows.Add(vPO, vQTY)                                         End If

SUM QTY FROM DATATABLE VB.NET

Dim DTGakGeser, DTGeser As New DataTable                                 DTGakGeser.Columns.Add("COGAKGESER", GetType(String))                                 DTGakGeser.Columns.Add("QTYGAKGESER", GetType(Decimal))                                 DTGeser.Columns.Add("COGESER", GetType(String))                                 DTGeser.Columns.Add("QTYGESER", GetType(Decimal))                                 Dim tmpSUMGakGeser, tmpSUMGeser                                 If DTGakGeser.Rows.Count > 0 Then                                     'SUM DATATABLE                                     tmpSUMGakGeser = Convert.ToInt32(DTGakGeser.Compute("SUM(QTYGAKGESER)", String.Empty))                                 End If                                 If DTGeser.Rows.Count > 0 Then                                     'SUM DATATABLE                                                                 tmpSU

error 11 could not copy exceeded retry count of 10. failed

My case in VS2013 Open project properties [ menu > project > properties ] Choose "debug" tab Uncheck "Enable the visual studio hosting process" Start debugging [F5] You will receive security warning , just "ok". Lets application running Stop debugging. Check option "Enable the visual studio hosting process" , under debug tab, Now , try to start debugging , you will not see error again source :  https://stackoverflow.com/questions/18102859/visual-studio-could-not-copy-during-build

CHECK CHECKBOX IN DATAGRIDVIEW IS CHECKED OR UNCHECKED

'CHECK CHECKBOX IS CHECKED OR UNCHECKED     Private Sub CB_CheckedChanged(sender As Object, e As EventArgs) Handles CB.CheckedChanged         With DgvDoc             If CB.CheckState = CheckState.Checked Then                 For iRow = 0 To .Rows.Count - 1                     .Rows(iRow).Cells("CHECKED").Value = True                 Next             Else                 For iRow = 0 To .Rows.Count - 1                     .Rows(iRow).Cells("CHECKED").Value = False                 Next             End If         End With     End Sub

DATAGRIDVIEW CELL/COLUMN UPPERCASE

 'DATAGRIDVIEW UPPERCASE     Private Sub DGVUpperCase(sender As Object, e As KeyPressEventArgs)         e.KeyChar = Char.ToUpper(e.KeyChar)     End Sub     Private Sub DgvDoc_EditingControlShowing(sender As Object, e As DataGridViewEditingControlShowingEventArgs) _ Handles DgvDoc.EditingControlShowing         AddHandler e.Control.KeyPress, AddressOf DGVUpperCase     End Sub

Create Comment As .xls In Farpoint Spread

  Private Sub TAGS_PARENTING()         Dim DTPopUp As New DataTable         With DTPopUp             .Columns.Add("SEQ", GetType(String))             .Columns.Add("QTY", GetType(String))             .Columns.Add("ETD", GetType(String))             .Columns.Add("ETA", GetType(String))             DTPopUp = MePostab_Control.Cari_TAG_PARENTING         End With         With FPPOSTAB             For GG As Integer = 0 To .ActiveSheet.RowCount - 1                 Dim JMLROW As Integer = .ActiveSheet.GetChildView(GG, 0).Rows.Count                 Try                     If JMLROW >= 2 Then                         For vTAG As Integer = 0 To (JMLROW - 1)                             For vCOL As Integer = 0 To 5                                 Dim ColCONumber As String = .ActiveSheet.GetChildView(GG, 0).Cells(vTAG, 3 + (vCOL * 4)).Text                                 Dim tmpTAGS = DTPopUp.Select("CO = '" & ColCONumber & "

ONLY ALLOW NUMBER AND BACKSPACE IN TEXTBOX