记录集的记录显示方法

wonderfeng · 发表于 2006-4-12 01:29:00

rs是记录集

想表示记录集的第 i 条记录中的某个字段怎么来表示？？

谢谢

fan0217 · 发表于 2006-4-12 01:33:00

ADO:

首先要用Move移动当前记录到指定位置,然后用rs("字段名")

wonderfeng · 发表于 2006-4-12 01:57:00

Private Sub Form_Current()

Me![item_no] = Forms![srrtg]![item_no]
Me![item_desc] = Forms![srrtg]![item_desc_1]
Me![rtg_no] = Forms![srrtg]![rtg_no]

Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim stemp As String
Dim i As Integer

stemp = "select * from dbo_z_srdtl where item_no='" & Forms![srrtg]![item_no] & "'and rtg_no='" & Forms![srrtg]![rtg_no] & "' "
rs1.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

stemp = "select * from dnc where item_no='" & Forms![srrtg]![item_no] & "'and rtg_no='" & Forms![srrtg]![rtg_no] & "' "
rs2.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If rs2.RecordCount <> 0 Then
  For i = 1 To rs1.RecordCount
If rs1("oper_no") = rs2("oper_no") Then
   Me.DNC = rs2("DNC")
Else: Me.DNC = Null
End If
  Next i
Else: Me.DNC = Null
End If

Exit Sub
End Sub

wonderfeng · 发表于 2006-4-12 02:00:00

帮忙帮我看一下

这样是不是有问题

思路：两张表，取出这两张表里oper_no相等的记录，然后将表中DNC字段赋值给文本框！

谢谢

fan0217 · 发表于 2006-4-12 02:07:00

把你的例子发上来

wonderfeng · 发表于 2006-4-12 02:10:00

太大啊，我也不知道怎么发啊

wonderfeng · 发表于 2006-4-12 02:11:00

怎么上传？

我把它搞小点

fan0217 · 发表于 2006-4-12 02:14:00

先简化数据库再压缩上传.

wonderfeng · 发表于 2006-4-12 02:19:00

怎么上传啊？

wonderfeng · 发表于 2006-4-12 02:21:00

我没有权限？

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[Access本身] 记录集的记录显示方法

群介绍
主题无相 (随机显示版	同地区群块其他地区)

主题相关群

地区相关群[您还没设置居住地]

[Access本身] 记录集的记录显示 方法

[Access本身] 记录集的记录显示方法