Office中国论坛/Access中国论坛

标题: 记录集的记录显示方法 [打印本页]

作者: wonderfeng 时间: 2006-4-12 01:29
标题: 记录集的记录显示方法
rs是记录集

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

谢谢

作者: fan0217 时间: 2006-4-12 01:33
ADO:

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

作者: wonderfeng 时间: 2006-4-12 01:57
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
帮忙帮我看一下

这样是不是有问题

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

谢谢

作者: fan0217 时间: 2006-4-12 02:07
把你的例子发上来

作者: wonderfeng 时间: 2006-4-12 02:10
太大啊，我也不知道怎么发啊

作者: wonderfeng 时间: 2006-4-12 02:11
怎么上传？

我把它搞小点

作者: fan0217 时间: 2006-4-12 02:14
先简化数据库再压缩上传.

作者: wonderfeng 时间: 2006-4-12 02:19
怎么上传啊？

作者: wonderfeng 时间: 2006-4-12 02:21
我没有权限？

作者: wonderfeng 时间: 2006-4-12 02:24
原来这样啊！

作者: wonderfeng 时间: 2006-4-12 02:25
标题: 上传
[attach]17056[/attach]
斑竹帮我看下，谢谢

作者: wonderfeng 时间: 2006-4-12 02:28
标题: 传错了，不好意思
[attach]17057[/attach]
传错了，刚才

作者: wonderfeng 时间: 2006-4-12 16:38
太感谢斑竹的指导了！

不过还有一问题，那个链接字段怎样在窗体中能显示出超级链接，好象那样赋值是文本啊，不能点

作者: 一点通 时间: 2006-4-12 17:49
使用主贴上面的"回复贴子"按钮,打开后就可上传,或者编辑自己的贴子也可上传例子的,但记得用WINRAR打包一下

作者: wonderfeng 时间: 2006-4-12 18:17
恩，谢谢

问一问题

我们把超级链接字段赋值给文本框，在文本框里如何显示出也是超级链接（现在是文本格式）

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)