vb编程怎样在编辑，保存之后删除原来的数据

显示全部楼层 · 2010-5-21 18:22:39

Private Sub 编辑_Click()

For i = 0 To 1

Text1(i).Locked = False

Next

Text1(0).SetFocus
End Sub
Private Sub 保存_Click()

sql = "select* from student表 where sno='" + List1.list(List1.ListIndex) + "'"

rs.Source = sql

Set rs.ActiveConnection = cn

rs.LockType = adLockOptimistic

rs.CursorType = adOpenKeyset

rs.Open

Do Until rs.EOF

If Text1(0).Text = rs.Fields("sno") Then

rs.Delete

End If

rs.MoveNext

Loop

rs.AddNew

rs.Fields("sno") = Trim(Text1(0).Text)

rs.Fields("sname") = Trim(Text1(1).Text)

rs.Update

rs.Close

Adodc1.Refresh

Call list
End Sub
初学请详细回答还有问题就是怎样使用Trim(IIf(IsNull(你的字段), "", 你的字段))，请详细回答，谢谢！！！

千问 · 2010-5-21 18:22:39

在保存过程的后面清除文本框中的数据即可
For i = 0 To 1
Text1(i)=""
Next

千问 · 2010-5-21 18:22:39

我知道

vb编程 怎样在编辑，保存之后删除原来的数据

vb编程怎样在编辑，保存之后删除原来的数据