Form Payment
DGV.Columns.Add("FullName", "Customer") '
DGV.Columns.Add("InvNomer", "Invoice No.")
DGV.Columns.Add("BalanceDue", "Total")
DGV.Columns.Add("Paid", "Paid")
Private Sub cmdPayList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPayList.Click
' where = " AND InvNomer NOT IN("
' where = where & "'" & row(2).Value & "', "
' where = where & ")"
PayList.show()
End Sub
'PayList load
sSql = "SELECT FullName ,InvNomer, BalanceDue From Invoice"
With LvList
.Clear()
.View = View.Details
.FullRowSelect = True
.GridLines = True
.Columns.Add("Nama", 150)
.Columns.Add("No.Faktur", 90)
.Columns.Add("Balance", 70)
FillListView(LvList, GetData(sSql))
End With
Private Sub LvList_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles LvList.KeyPress
Try
If Not LvList.SelectedItems.Count = 0 Then
With LvList.SelectedItems(0)
Dim lvItem() As String = {.Text, .SubItems(1).Text, .SubItems(2).Text, .SubItems(3).Text} '// get ListView selectedItem.
DirectCast(Payment.DGV.DataSource, DataTable).Rows.Add(lvItem)
End With
End If
Catch ex As Exception
End Try
End If
Me.Hide()
End Sub
How to NoT In Paylist LvList where InvNomer have add to dgv Payment
Not Display InvNomer in LvList Paylist where InvNomer in Dgv Payment.
Anyone can help?
thanks