datagrid - 如何使用数据网格?
问题描述
我插入了 4 列(条形码、名称、数量和价格)。
当我第二次扫描任何特定的条形码时,我不希望数据重复,只是数量增加了。
到目前为止,我刚刚编码
Private Sub CTbarcode_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Main.MSAadodc1.Recordset.Find "BARCODE='" & CTbarcode.Text & "'", , adSearchForward, 1
If Not Main.MSAadodc1.Recordset.EOF Then
CAadodc1.Recordset.Find "BARCODE='" & CTbarcode.Text & "'", , adSearchForward, 1
If CAadodc1.Recordset.EOF Then
CTproduct.Text = Main.MSAadodc1.Recordset!PRODUCT
CTprice.Text = Main.MSAadodc1.Recordset!PRICE
CTquantity.Text = "1"
CAadodc1.Recordset.AddNew
CAadodc1.Recordset!tbarcode = CTbarcode.Text
CAadodc1.Recordset!tproduct = CTproduct.Text
CAadodc1.Recordset!tquantity = CTquantity.Text
CAadodc1.Recordset!tprice = CTprice.Text
CAadodc1.Recordset!tdiscount = CTquantity.Text
CAadodc1.Recordset!ttotalprice = Val(CTprice.Text * CTquantity.Text) - CTquantity.Text
CTbarcode.SetFocus
Else
CAadodc1.Recordset!tquantity = Val(CAadodc1.Recordset!tquantity + 1)
CTbarcode.SetFocus
CAadodc1.Refresh
End If
Else
MsgBox "Data Not Found!", vbOKOnly + vbCritical, "Unknown!"
CTbarcode.Text = ""
End If
End If
End Sub
解决方案
Private Sub CTbarcode_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Main.MSAadodc1.Recordset.Find "BARCODE='" & CTbarcode.Text & "'", , adSearchForward, 1
If Not Main.MSAadodc1.Recordset.EOF Then
CAadodc1.Recordset.Find "tbarcode='" & CTbarcode.Text & "'", , adSearchForward, 1
If CAadodc1.Recordset.EOF Then
CTproduct.Text = Main.MSAadodc1.Recordset!PRODUCT
CTprice.Text = Main.MSAadodc1.Recordset!PRICE
CTquantity.Text = "1"
CAadodc1.Recordset.AddNew
CAadodc1.Recordset!tbarcode = CTbarcode.Text
CAadodc1.Recordset!tproduct = CTproduct.Text
CAadodc1.Recordset!tquantity = CTquantity.Text
CAadodc1.Recordset!tprice = CTprice.Text
CAadodc1.Recordset!tdiscount = 0
CAadodc1.Recordset!ttotalprice = Val(CTprice.Text * CTquantity.Text) - CTquantity.Text
CTbarcode.SetFocus
CTbarcode.Text = ""
CTprice.Text = ""
CTproduct.Text = ""
CTquantity.Text = ""
Else
CAadodc1.Recordset!tquantity = CAadodc1.Recordset!tquantity + 1
CAadodc1.Recordset!tdiscount = 0
CAadodc1.Recordset!ttotalprice = Val(CAadodc1.Recordset!tprice * CAadodc1.Recordset!tquantity - CAadodc1.Recordset!tdiscount)
CAadodc1.Recordset.Update
CTbarcode.SetFocus
CTbarcode.Text = ""
CTprice.Text = ""
CTproduct.Text = ""
CTquantity.Text = ""
End If
Else
MsgBox "Data Not Found!", vbOKOnly + vbCritical, "Unknown!"
CTbarcode.Text = ""
End If
End If
End Sub
推荐阅读
- python - 将 Excel 文件作为列表导入 Python
- swift - Swift 中的闭包?
- sharepoint - Blue Prism 中 Sharepoint 的间谍活动非常缓慢
- python - 如何使用 bytes32 从 python 向以太坊专用网络发送交易?
- java - 从数据库中检索多个图像
- r - 如何让数据/绘图显示在闪亮的应用程序中?
- typescript - NestJs 在自定义验证器(类验证器)中获取请求实例或执行上下文
- java - 从中心项目启动我的 RecyclerView Horizontal Carousel
- algorithm - 如何在 Octave 中循环矩阵以生成 n 阶交叉项多项式
- c - 在管道到标准输入时使用 ioctl 填充 winsize 结构