怎么做。还有,怎样改变记录的指向(我说的是ADODC前的一个小黑三角)。
谢谢!
6 个解决方案
#1
1.recordset.addnew 方法,
2.recordset.move**** 方法
详细内容请查帮助文件
2.recordset.move**** 方法
详细内容请查帮助文件
#2
也不对。
我要的是插入而不是追加。
我的想法是:查找出一条合乎要求的记录后,使小黑三角指到那条记录上,该怎么办?
我要的是插入而不是追加。
我的想法是:查找出一条合乎要求的记录后,使小黑三角指到那条记录上,该怎么办?
#3
//也不对。
我要的是插入而不是追加。
//查找出一条合乎要求的记录后,使小黑三角指到那条记录上,该怎么办?
我要的是插入而不是追加。
//查找出一条合乎要求的记录后,使小黑三角指到那条记录上,该怎么办?
#4
我用DBGRID+data时用的是
Dim rs As Recordset
Dim XX, i As Integer
XX = Data1.Recordset.Fields("idd")
If XX > 0 Then
datl.Execute "update fpdy set idd=idd+1 where idd>=" & XX
Set rs = datl.OpenRecordset("fpdy")
rs.AddNew
rs!idd = XX
rs.Update
rs.Close
Data1.RecordSource = "select * from fpdy order by idd"
Data1.Refresh
i = 1
Do While Not Data1.Recordset.EOF
i = i + 1
If i = XX + 1 Then Exit Do
Data1.Recordset.MoveNext
Loop
DBGrid1.SetFocus
End If
Dim rs As Recordset
Dim XX, i As Integer
XX = Data1.Recordset.Fields("idd")
If XX > 0 Then
datl.Execute "update fpdy set idd=idd+1 where idd>=" & XX
Set rs = datl.OpenRecordset("fpdy")
rs.AddNew
rs!idd = XX
rs.Update
rs.Close
Data1.RecordSource = "select * from fpdy order by idd"
Data1.Refresh
i = 1
Do While Not Data1.Recordset.EOF
i = i + 1
If i = XX + 1 Then Exit Do
Data1.Recordset.MoveNext
Loop
DBGrid1.SetFocus
End If
#5
加了一个IDD的字段
#6
你最好用DBGRID绑定查询(不是表),你新添加的记录将出现在表格的中间(查询按字段排序)。
#1
1.recordset.addnew 方法,
2.recordset.move**** 方法
详细内容请查帮助文件
2.recordset.move**** 方法
详细内容请查帮助文件
#2
也不对。
我要的是插入而不是追加。
我的想法是:查找出一条合乎要求的记录后,使小黑三角指到那条记录上,该怎么办?
我要的是插入而不是追加。
我的想法是:查找出一条合乎要求的记录后,使小黑三角指到那条记录上,该怎么办?
#3
//也不对。
我要的是插入而不是追加。
//查找出一条合乎要求的记录后,使小黑三角指到那条记录上,该怎么办?
我要的是插入而不是追加。
//查找出一条合乎要求的记录后,使小黑三角指到那条记录上,该怎么办?
#4
我用DBGRID+data时用的是
Dim rs As Recordset
Dim XX, i As Integer
XX = Data1.Recordset.Fields("idd")
If XX > 0 Then
datl.Execute "update fpdy set idd=idd+1 where idd>=" & XX
Set rs = datl.OpenRecordset("fpdy")
rs.AddNew
rs!idd = XX
rs.Update
rs.Close
Data1.RecordSource = "select * from fpdy order by idd"
Data1.Refresh
i = 1
Do While Not Data1.Recordset.EOF
i = i + 1
If i = XX + 1 Then Exit Do
Data1.Recordset.MoveNext
Loop
DBGrid1.SetFocus
End If
Dim rs As Recordset
Dim XX, i As Integer
XX = Data1.Recordset.Fields("idd")
If XX > 0 Then
datl.Execute "update fpdy set idd=idd+1 where idd>=" & XX
Set rs = datl.OpenRecordset("fpdy")
rs.AddNew
rs!idd = XX
rs.Update
rs.Close
Data1.RecordSource = "select * from fpdy order by idd"
Data1.Refresh
i = 1
Do While Not Data1.Recordset.EOF
i = i + 1
If i = XX + 1 Then Exit Do
Data1.Recordset.MoveNext
Loop
DBGrid1.SetFocus
End If
#5
加了一个IDD的字段
#6
你最好用DBGRID绑定查询(不是表),你新添加的记录将出现在表格的中间(查询按字段排序)。