VB 与ACCESS,急

access如图中示，有ID1和HD两个

在窗体中有两个按钮，两个label

一个label1显示ID1的内容，对应的有一个按钮可以调整到ID1的下一内容(本人已搞定）另一个label2显示对应ID1的HD内容，如图中则就是当label1为1时，label2 就是A

我按下按钮调整label1到2时，label显示就应该为空. 这要怎么实现？请提供代码。

 

 

Dim x, y As Integer
Private Sub Command1_Click()
If y < x Then
Label1.Caption = axr(y, 0)
Label1.Caption = axr(y, 1)
y = y + 1
End If
End Sub

Private Sub Form_Load()
Dim mysql As String
Dim i As Integer
 Dim axr(x, 2)
Dim conn As New ADODB.Connection
 Dim rs As New ADODB.Recordset
mysql = "select * from 表名 order by ID1 asc"
 Set conn = CreateObject("adodb.connection")
 conn.Provider = "Microsoft.Jet.OLEDB.4.0"
 conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\文件名.mdb;Jet OLEDB:Database Password=密码"
 rs.Open mysql, conn, adOpenStatic, adLockOptimistic
 conn.Execute (mysql)
 x = rs.recordcount + 1
 y = 0
 
 
For i = 0 To rs.recordcount - 1
If IsNull(rs(i).Value) Then  '判断记录集字段值是否为空
Else
axr(i, 0) = rs(i, 0).Value
axr(i, 1) = rs(i, 1).Value
End If
rs.MoveNext
Next i

conn.Close
End Sub

没有调试过，提供一个思路，希望能有帮助。

实质上，通过datagrid.fileds("字段")可以吧焦点行的各个字段赋值给其他的对象

一个按钮，一个命令就可以搞定

Private Sub Command1_Click() Data1.Recordset.MoveNext End Sub

在你给label2.caption赋值的语句之前加上一行label2.caption=""

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！