最近开发了一个小软件请大家指点一下
1、如何对数据库进行查找。
2、数量栏，中给定一个值后。去完数后下一行如何更新
Private Sub CommandButton1_Click() '查询
If TextBox1.Text = "" Then MsgBox "请输入定额编号!", vbInformation, "项目预算": Exit Sub
DEBH = TextBox1.Value
Strsql = "Select DEH,MC,DW,RGF from DEB where 定额编号='" & DEBH & "'"
ListView1.ListItems(I).SubItems(1) = Format(Rst.Fields("DEH"))
ListView1.ListItems(I).SubItems(2) = Format(Rst.Fields("MC"))
ListView1.ListItems(I).SubItems(3) = Format(Rst.Fields("DW"))
ListView1.ListItems(I).SubItems(4) = Format(Rst.Fields("RGF"))
MsgBox "没有对应的项目名称,请检查输入内容!", vbInformation, "注意！"
Rst.Close
End Sub
'数值取数后如何刷新
x = Selection.Cells.Row
TextBox2.Text = Cells(x, 5).Value '如何刷新
