好吧问答库 > VB中如何将DATAGRID1中的一行通过按钮（command）增加到同一个窗体的list1

VB中如何将DATAGRID1中的一行通过按钮（command）增加到同一个窗体的list1

Private Sub Command1_Click()Adodc3.RecordSource = "SELECT a.学号, a.成绩, a.课程号, b.课程名,b.学分,b.属性" _& " FROM 成绩表 AS a INNER JOIN 选课表 AS b ON a.课程号=b.课程号 " _& "where 学号=✀" & xh & "✀"Adodc3.RefreshWhile Not Adodc3.Recordset.EOFkch = Adodc3.Recordset.Fields("课程号")kcm = Adodc3.Recordset.Fields("课程名")xuefen = Adodc3.Recordset.Fields("学分")List1.AddItem kch + kcm + xuefenAdodc3.Recordset.MoveNextWendEnd Sub我单击添加一门课程结果所有的课程都添加到LIST1，希望你能帮我改进！

2026年09月26日 18:02

有3个网友回答

网友（1）：

在窗体上放一个commandbutton,名称就用默认的command1,调整好大小，代码如下：
Private Sub Form_Click()
Command1.Visible = True
End Sub

Private Sub Form_Load()
Command1.Visible = False
End Sub

网友（2）：

While Not rs.EOF
List1.ListItems.Add(i, Text:=rs(2))
list1.SubItems(1) = rs(3)
list1.SubItems(2) = rs(4)
rs.MoveNext
i = i + 1
Wend
直接显示在list中，没有用datagrid

网友（3）：

要对应位相同才会a=a+1 你的程序如果位置不同即使数字一样也会b=b+1
比如 5493 与 3945 输出是0A4B
5493 与 5941 输出是1A4B