Question

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.Refresh
While Not Adodc3.Recordset.EOF
kch = Adodc3.Recordset.Fields("课程号")
kcm = Adodc3.Recordset.Fields("课程名")
xuefen = Adodc3.Recordset.Fields("学分")
List1.AddItem kch + kcm + xuefen
Adodc3.Recordset.MoveNext
Wend
End Sub
我单击添加一门课程结果所有的课程都添加到LIST1，希望你能帮我改进！

Answer 1

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

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

Answer 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

追问

你的代码有问题，运行不了!而且我要按照我的这种方法做，这是老师要求的需要你帮我改代码

追答

上式中因为I没有提前赋值，list1不能出现0行
把你的这句 改掉就行,加了两个声明
List1.additem KCH+kcm+xuefen
改为：

Private Sub Command1_Click()
dim TmpI as long
Dim xItem As List1
Adodc3.RecordSource = "SELECT a.学号, a.成绩, a.课程号, b.课程名,b.学分,b.属性" _
& " FROM 成绩表 AS a INNER JOIN 选课表 AS b ON a.课程号=b.课程号 " _
& "where 学号='" & xh & "'"
Adodc3.Refresh
While Not Adodc3.Recordset.EOF
kch = Adodc3.Recordset.Fields("课程号")
kcm = Adodc3.Recordset.Fields("课程名")
xuefen = Adodc3.Recordset.Fields("学分")
tmpi=tmpi+1
set xltem=list1.ListItems.Add(i, Text:=kch)
xltem.SubItems(1)=kcm
xltem.subltems(2)=xuefen
Adodc3.Recordset.MoveNext
Wend
End Sub
还有一点你要注意，这段代码中list1为listview控件，而不是listbox控件。

追问

那我如何再把这个LISTVIEW 里面的东西通过ADODC导入ACCESS表呢，而且代码也有问题，运行不成功

追答

代码有什么提示？我好久不用VB了，电脑上也没有装，把错误提示给我

Answer 3

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