Click here to Skip to main content
16,008,942 members
Home / Discussions / Visual Basic
   

Visual Basic

 
AnswerRe: how to comare two audio files Pin
Dave Kreskowiak19-May-09 4:21
mveDave Kreskowiak19-May-09 4:21 
AnswerRe: how to comare two audio files Pin
0x3c019-May-09 5:55
0x3c019-May-09 5:55 
GeneralRe: how to comare two audio files Pin
Dave Kreskowiak19-May-09 7:35
mveDave Kreskowiak19-May-09 7:35 
GeneralRe: how to comare two audio files Pin
0x3c019-May-09 10:20
0x3c019-May-09 10:20 
GeneralRe: how to comare two audio files Pin
Jon_Boy20-May-09 1:44
Jon_Boy20-May-09 1:44 
Questioni modify row no 1 but change modify row no 10 ? Pin
krrish95419-May-09 1:06
krrish95419-May-09 1:06 
AnswerRe: i modify row no 1 but change modify row no 10 ? Pin
Tom Deketelaere19-May-09 1:50
professionalTom Deketelaere19-May-09 1:50 
GeneralRe: i modify row no 1 but change modify row no 10 ? Pin
krrish95420-May-09 3:23
krrish95420-May-09 3:23 
Dear Sir

Thank you replies for my problem

my allication is based on VB6

secondly this happen only when i add max record and same continue variety

please see following code


rivate Sub cmdDetAdd_Click()

DetRecordStatus = RecNew
mDetailStatus = DetailNew

Call ClearDetails
Call SetDetButtonStatus

If HdrRecordStatus <> RecNew Then
txtIndentRefNo.Enabled = False
cmdIndentRefNo.Enabled = False
Else
txtIndentRefNo.Enabled = True
cmdIndentRefNo.Enabled = True
txtIndentRefNo.SetFocus
End If
If Len(Trim(txtCrop.Text)) = 0 Then
txtIndentRefNo.SetFocus
Else
'txtLotNo.SetFocus
End If

End Sub
Private Sub cmdDetModify_Click()

If HdrRecordStatus = RecNew Or HdrRecordStatus = RecModify Then

DetRecordStatus = RecModify
Call AddDetailsToControls
GridRow = flxDetail.Row
Call SetDetButtonStatus

'txtNoOfBags.SetFocus
txtVariety.SetFocus
End If

End Sub
Private Sub cmdDetDelete_Click()

On Error GoTo ErrHandler

Dim strQry As String
Dim RowCnt As Integer

Dim IsBeginTrans As Boolean

IsBeginTrans = False

With flxDetail

If .Rows > 1 Then

GridRow = .Row

If GridRow = 0 Then Exit Sub

Call AddDetailsToControls

If MsgBox("Do you want to delete the Marketing seed despatch detail of lot number " & Chr(13) & _
.TextMatrix(GridRow, SOLotNoCol), vbYesNo) = vbNo Then Exit Sub

If .TextMatrix(GridRow, SOStatusCol) = DetailExisting Then

If Len(Trim(.TextMatrix(GridRow, SOInvisibleLotNo))) > 0 Then
strQry = "Delete from MktDespatchDet " & _
" Where MktDespatchRefNo = '" & Trim(txtDespatchRefNo.Text) & "'" & _
" and MktLotNo = '" & Trim(.TextMatrix(GridRow, SOInvisibleLotNo)) & "'"

gNSLConn.BeginTrans
IsBeginTrans = True

gNSLConn.Execute strQry

strQry = "Update MktLotMst set " & _
" NoOfBags = NoOfBags + " & Val(.TextMatrix(GridRow, SONoOfBagsCol)) & _
", IsExists = 'Y' " & _
" Where LotNo = '" & Trim(.TextMatrix(GridRow, SOInvisibleLotNo)) & "'"

gNSLConn.Execute strQry

gNSLConn.CommitTrans
IsBeginTrans = False
End If

End If

If DeleteMSFGRow(flxDetail) = False Then

MsgBox "Error in Flexgrid Row Deletion"
GoTo ErrHandler

End If

Call cmdDetClear_Click

End If

End With

Exit Sub

ErrHandler:

If IsBeginTrans = True Then
gNSLConn.RollbackTrans
End If

Call ErrorLog(Err.Number, Err.Description, Err.Source, Me.Name, "cmdDetDelete_Click")

End Sub
QuestionRun application on windows start up Pin
hrishiS18-May-09 21:20
hrishiS18-May-09 21:20 
AnswerRe: Run application on windows start up Pin
~Khatri Mitesh~18-May-09 21:28
~Khatri Mitesh~18-May-09 21:28 
GeneralRe: Run application on windows start up Pin
hrishiS18-May-09 21:37
hrishiS18-May-09 21:37 
AnswerRe: Run application on windows start up Pin
MohammadAmiry19-May-09 1:19
MohammadAmiry19-May-09 1:19 
AnswerRe: Run application on windows start up Pin
Tom Deketelaere19-May-09 1:54
professionalTom Deketelaere19-May-09 1:54 
QuestionXML Serialization Pin
MrColeyted18-May-09 21:06
MrColeyted18-May-09 21:06 
AnswerRe: XML Serialization Pin
nlarson1119-May-09 5:00
nlarson1119-May-09 5:00 
GeneralRe: XML Serialization Pin
MrColeyted19-May-09 6:06
MrColeyted19-May-09 6:06 
GeneralRe: XML Serialization Pin
nlarson1119-May-09 7:41
nlarson1119-May-09 7:41 
QuestionDynamically Loading Image in Crystal Report Pin
Ovais Memon18-May-09 20:46
Ovais Memon18-May-09 20:46 
QuestionRandom Numbers Pin
GregoryWB18-May-09 15:08
GregoryWB18-May-09 15:08 
AnswerRe: Random Numbers Pin
_Damian S_18-May-09 15:25
professional_Damian S_18-May-09 15:25 
GeneralRe: Random Numbers Pin
GregoryWB18-May-09 15:39
GregoryWB18-May-09 15:39 
AnswerRe: Random Numbers Pin
Luc Pattyn18-May-09 15:38
sitebuilderLuc Pattyn18-May-09 15:38 
GeneralRe: Random Numbers Pin
GregoryWB18-May-09 15:42
GregoryWB18-May-09 15:42 
GeneralRe: Random Numbers Pin
Luc Pattyn18-May-09 15:58
sitebuilderLuc Pattyn18-May-09 15:58 
GeneralRe: Random Numbers Pin
_Damian S_18-May-09 17:13
professional_Damian S_18-May-09 17:13 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.