'---Transaction bill Load Query---
Private Sub transHistoryLoad()
Dim constring As String = AlgoMdConnectionString
Try
Using con As New SqlConnection(constring)
Using cmd As New SqlCommand("
--- Payment History
SELECT
Convert(Date,TAVH_VOUCHERDT) AS [PAYMENT DATE],
TAVH_VOUCHERNO AS [Voucher No],
Case when TAVH_VOUCHERCODE=1001 then 'Bill Wise Payment'
when TAVH_VOUCHERCODE=1003 then 'Advance Payment'
else 'Payment' end AS [Payment Type],
LedgerCode.TALM_LedgerName AS [Paid to],
OppLedgerCode.TALM_LedgerName AS [Paid through],
TAVH_AMOUNT AS [Paid Amount],
TAVH_NARRATION AS [Narration],
'False' AS [isClosed]
from Tbl_AccVoucherHdr2019_2020
INNER JOIN Tbl_AccLedgerMaster LedgerCode
ON LedgerCode.TALM_LedgerCode = TAVH_PartyLedgerCode
INNER JOIN Tbl_AccLedgerMaster OppLedgerCode
ON OppLedgerCode.TALM_LedgerCode = TAVH_PrimaryLedgerCode
Where TAVH_VOUCHERCODE in (1001,1003)
", con)
cmd.CommandType = CommandType.Text
Using sda As New SqlDataAdapter(cmd)
sda.Fill(ds)
If ds.Tables(0).Rows.Count > 0 Then
grdMain.Columns.Add(New GridCheckBoxColumn() With {.MappingName = "isClosed", .HeaderText = "isClosed", .CheckBoxSize = New Size(15, 15), .TrueValue = "True", .FalseValue = "False"})
TryCast(Me.grdMain.Columns("isClosed"), GridCheckBoxColumn).AllowCheckBoxOnHeader = True
Me.grdMain.Columns("isClosed").HeaderText = String.Empty
Me.grdMain.Columns("isClosed").AllowEditing = True
grdMain.DataSource = ds.Tables(0)
AddHandler grdMain.View.RecordPropertyChanged, AddressOf OnRecordPropertyChanged
Else
Dim info As New FrmInfoMsgBox
info.lblmsg.Text = "Sorry, No Transaction found."
info.ShowDialog()
End If
End Using
End Using
End Using
Catch ex As Exception
IO.File.AppendAllText(appDataPath & "\Log.txt", String.Format("{0}{1}", Environment.NewLine, ex.ToString()))
Dim x As New FrmErrorMsgBox
x.txterrormsg.Text = ex.Message.ToString
x.ShowDialog()
End Try
End Sub
Private Sub btnRefresh_Click(sender As Object, e As EventArgs) Handles btnRefresh.Click
Me.grdMain.DataSource = Nothing
Me.grdMain.DataMember = Nothing
Me.grdMain.UnboundRows.Clear()
Me.grdMain.Columns.Clear()
transHistoryLoad()
Me.grdMain.Refresh()
End Sub
Above 'btnRefresh' is a clear and refresh statement i had given.
the columns get cleared successfully, but rows are not get clearing.. Its just adding the records within the old records..
I try Me.grdMain.View.Records.Clear() method, but it returns an error..