Private Sub CashPaper_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CashPaper.CheckedChanged
If CashPaper.Checked Then
CreditPaper.Checked = False
CashID.Items.Clear()
SelectCashID() 'ดึงรหัสขายสด
Else
End If
End Sub
Private Sub CreditPaper_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreditPaper.CheckedChanged
If CreditPaper.Checked Then
CashPaper.Checked = False
CashID.Items.Clear()
SelectCreditID() 'ดึงรหัสขายเชื่อ
End If
End Sub
End Class