求助，关于vb.6.0问题求助

[沐云木易]

[code=vb
这是修改后代码（红色字体是我自己加的，加上去就不行了）
Dim photofile As String
Dim Lastx As Single, Lasty As Single

Private Sub clsphoto_Click()
On Error GoTo err
Set rs = New ADODB.Recordset
Dim strrs As String
strrs = "select * from t_group where 组名 ='" & Cmbgroupname.Text & "'"
rs.Open strrs, conn, adOpenKeyset, adLockBatchOptimistic
groupID = Trim(rs.Fields("组ID")) ' 记录组ID
rs.Close
Dim obj As String
Set rs = New ADODB.Recordset
obj = "select * from 个人 where ID=" & jilu
rs.Open obj, conn, adOpenKeyset, adLockOptimistic
photo.Picture = LoadPicture(none)
rs.Update
'rs.Close
newflag = True
Exit Sub
err:
MsgBox "出现错误！", , "提示"
End Sub

Private Sub CmdOk_Click(Index As Integer) '确定更新 联系人信息
Dim strrs As String
Dim obj As String
On Error GoTo err
Select Case Index
Case 0
Set rs = New ADODB.Recordset
strrs = "select * from t_group where 组名 ='" & Cmbgroupname.Text & "'"
rs.Open strrs, conn, adOpenKeyset, adLockBatchOptimistic
groupID = rs.Fields("组ID") ' 记录组ID
rs.Close
Set rs = New ADODB.Recordset
obj = "select * from 个人 where ID=" & jilu
rs.Open obj, conn, adOpenKeyset, adLockOptimistic
If txtname.Text = "" Then '姓 名 不能为空
MsgBox "姓名不能为空！", , "错误!"
Exit Sub
End If
rs.Fields("组ID") = groupID
rs.Fields("姓名") = txtname.Text
rs.Fields("一卡通序号") = txtxuhao.Text
rs.Fields("性别") = cbosex.Text
rs.Fields("班级") = txtclass.Text
rs.Fields("科目") = cbozhiwu.Text
rs.Fields("手机号码") = txtdianhua.Text
rs.Fields("QQ号码") = txtqq.Text
rs.Fields("电子邮箱") = txtmail.Text
rs.Fields("备注") = txtfuzhu.Text
rs.Fields("周考成绩") = txtweekg.Text
rs.Fields("月考成绩") = txtmonthg.Text
rs.Fields("期中成绩") = txtmidg.Text
rs.Fields("期末成绩") = txtfinalg.Text
If photo.Picture = LoadPicture(none) Then
rs.Fields("照片") = ""
Else
rs.Fields("照片") = photofile
End If
rs.Update
rs.Close
newflag = True
Unload Me
Exit Sub
Case 1
Set rs = New ADODB.Recordset
strrs = "select * from t_group where 组名 ='" & Cmbgroupname.Text & "'"
rs.Open strrs, conn, adOpenKeyset, adLockBatchOptimistic
groupID = rs.Fields("组ID") ' 记录组ID
rs.Close
Set rs = New ADODB.Recordset
obj = "select * from 个人 where ID=" & jilu
rs.Open obj, conn, adOpenKeyset, adLockOptimistic
If txtname.Text = "" Then '姓 名 不能为空
MsgBox "姓名不能为空！", , "错误!"
Exit Sub
End If
rs.Fields("组ID") = groupID
rs.Fields("姓名") = txtname.Text
rs.Fields("一卡通序号") = txtxuhao.Text
rs.Fields("性别") = cbosex.Text
rs.Fields("班级") = txtclass.Text
rs.Fields("科目") = cbozhiwu.Text
rs.Fields("手机号码") = txtdianhua.Text
rs.Fields("QQ号码") = txtqq.Text
rs.Fields("电子邮箱") = txtmail.Text
rs.Fields("备注") = txtfuzhu.Text
rs.Fields("周考成绩") = txtweekg.Text
rs.Fields("月考成绩") = txtmonthg.Text
rs.Fields("期中成绩") = txtmidg.Text
rs.Fields("期末成绩") = txtfinalg.Text

If photo.Picture = LoadPicture(none) Then
rs.Fields("照片") = ""
Else
rs.Fields("照片") = photofile
End If
rs.Update
rs.Close
MsgBox "修改成功", 0 + 64, "提示"
newflag = True
Call lianjie
Dim sql As String
Dim i As Integer
Set rs = New ADODB.Recordset
sql = "select * from 个人 where ID = " & jilu
rs.Open sql, conn, adOpenKeyset, adLockOptimistic
groupID = Trim(rs("组ID")) '记录组ID
rs.Close
Set rs = New ADODB.Recordset
sql = "select * from t_Group where 组ID=" & groupID
rs.Open sql, conn, adOpenKeyset, adLockOptimistic
If groupID <> -1 Then
Cmbgroupname.Text = Trim(rs("组名")) '当前组员的组
End If
rs.Close
Set rs = New ADODB.Recordset
sql = "select * from t_Group "
rs.Open sql, conn, adOpenKeyset, adLockOptimistic
i = 1
While Not rs.EOF
Cmbgroupname.AddItem rs("组名")
rs.MoveNext
i = i + 1
Wend
rs.Close
Set rs = New ADODB.Recordset
obj = "select * from 个人 where ID=" & jilu
rs.Open obj, conn, adOpenKeyset, adLockOptimistic
lbl1.Caption = "在此输入 " & rs("姓名") & " 的详细信息"
rs.Close
Set rs = New ADODB.Recordset
strrs = "select * from 个人 where ID=" & jilu
rs.Open strrs, conn, adOpenKeyset, adLockOptimistic
txtname.Text = Trim("" & rs.Fields("姓名"))
txtxuhao.Text = Trim("" & rs.Fields("一卡通序号"))
cbosex.Text = rs.Fields("性别")
txtclass.Text = Trim("" & rs.Fields("班级"))
cbozhiwu.Text = Trim("" & rs.Fields("科目"))
txtdianhua.Text = Trim("" & rs.Fields("手机号码"))
txtqq.Text = Trim("" & rs.Fields("QQ号码"))
txtmail.Text = Trim("" & rs.Fields("电子邮箱"))
txtfuzhu.Text = Trim("" & rs.Fields("备注"))
txtweekg.Text = Trim("" & rs.Fields("周考成绩"))
txtmonthg.Text = Trim("" & rs.Fields("月考成绩"))
txtmidg.Text = Trim("" & rs.Fields("期中成绩"))
txtfinalg.Text = Trim("" & rs.Fields("期末成绩"))
If rs.Fields("照片") <> "" Then photo.Picture = LoadPicture(rs.Fields("照片"))
rs.Close
Exit Sub
End Select
err:
If err.Number = -2147467259 Then
MsgBox "序号不能重复!", vbCritical
Else
MsgBox "出现错误，请检查数据！", 0 + 64, "提示！"
Exit Sub
End If
End Sub

Private Sub cmdend_Click() '退出
Unload Me
End Sub

Private Sub exit_Click()
Unload Me
End Sub

Private Sub Form_Load()
frmmain.Enabled = False
frmfind.Enabled = False
cbosex.AddItem "男"
cbosex.AddItem "女"
cbosex.ListIndex = 0
cbozhiwu.AddItem "管理员"
cbozhiwu.AddItem "校长"
cbozhiwu.AddItem "副校长"
cbozhiwu.AddItem "处室主任"
cbozhiwu.AddItem "在职教师"
cbozhiwu.AddItem "已退出"
cbozhiwu.ListIndex = 0
On Error GoTo err
Call lianjie
Dim sql As String
Dim i As Integer
Set rs = New ADODB.Recordset
sql = "select * from 个人 where ID = " & jilu
rs.Open sql, conn, adOpenKeyset, adLockOptimistic
groupID = Trim(rs("组ID")) '记录组ID
rs.Close
Set rs = New ADODB.Recordset
sql = "select * from t_Group where 组ID=" & groupID
rs.Open sql, conn, adOpenKeyset, adLockOptimistic
If groupID <> -1 Then
Cmbgroupname.Text = Trim(rs("组名")) '当前组员的组
End If
rs.Close
Set rs = New ADODB.Recordset
sql = "select * from t_Group "
rs.Open sql, conn, adOpenKeyset, adLockOptimistic
i = 1
While Not rs.EOF
Cmbgroupname.AddItem rs("组名")
rs.MoveNext
i = i + 1
Wend
rs.Close
Dim obj As String
Set rs = New ADODB.Recordset
obj = "select * from 个人 where ID=" & jilu
rs.Open obj, conn, adOpenKeyset, adLockOptimistic
lbl1.Caption = "在此输入 " & rs("姓名") & " 的详细信息"
rs.Close
Set rs = New ADODB.Recordset
Dim strrs As String
strrs = "select * from 个人 where ID=" & jilu
rs.Open strrs, conn, adOpenKeyset, adLockOptimistic
txtname.Text = Trim("" & rs.Fields("姓名"))
txtxuhao.Text = Trim("" & rs.Fields("一卡通序号"))
cbosex.Text = rs.Fields("性别")
txtclass.Text = Trim("" & rs.Fields("班级"))
cbozhiwu.Text = Trim("" & rs.Fields("科目"))
txtdianhua.Text = Trim("" & rs.Fields("手机号码"))
txtqq.Text = Trim("" & rs.Fields("QQ号码"))
txtmail.Text = Trim("" & rs.Fields("电子邮箱"))
txtfuzhu.Text = Trim("" & rs.Fields("备注"))
txtweekg.Text = Trim("" & rs.Fields("周考成绩"))
txtmonthg.Text = Trim("" & rs.Fields("月考成绩"))
txtmidg.Text = Trim("" & rs.Fields("期中成绩"))
txtfinalg.Text = Trim("" & rs.Fields("期末成绩"))
If rs.Fields("照片") <> "" Then photo.Picture = LoadPicture(rs.Fields("照片"))
rs.Close
err:
Exit Sub
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Lastx = x
Lasty = y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then
Me.Left = Me.Left + (x - Lastx)
Me.Top = Me.Top + (y - Lasty)
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
frmmain.Enabled = True
frmfind.Enabled = True
End Sub

Private Sub killphoto_Click()
On Error GoTo errkillphoto:
Dim killimg As Integer
killimg = MsgBox("进行此操作将删除照片！是否继续？", 1 + 48 + 256, "警告")
If killimg = 1 Then
Kill photofile
errkillphoto:
MsgBox "出现错误！", , "提示"
End If
End Sub

Private Sub loadphoto_Click()
On Error GoTo errHandler:
dlgSelect.DialogTitle = "选择照片"
dlgSelect.Filter = "所有图形文件|*.bmp;*.dib;*.gif;*.jpg;*.ico|位图文件(*.bmp;*.dib)|*.bmp;*.dib|GIF文件(*.gif)|*.gif|JPEG文件(*.jpg)|*.jpg|图标文件(*.ico)|*.ico"
dlgSelect.ShowOpen
If dlgSelect.FileName = "" Then Exit Sub
photofile = dlgSelect.FileName
photo.Picture = LoadPicture(dlgSelect.FileName)
Exit Sub
errHandler:
MsgBox err.Description, vbCritical, "错误"
End Sub
Private Sub photo_MouseUP(Button As Integer, Shift As Integer, x As Single, y As Single)
If photo.Picture = LoadPicture(none) Then
killphoto.Enabled = False
Else
killphoto.Enabled = True
End If
If Button = 2 Then
PopupMenu menuphoto
End If
End Sub

Private Sub Picexit_Click()
Unload Me
End Sub


Private Sub txtweekg_Change()

End Sub

[舉杯邀明月]

具体是什么错误？ 你“加上去”的那几句，使用的控件名称与代码相符吗！数据库中有对应的字段吗！ 你到底是哪“不行”，要说明白啊！　难道让别人去猜？？？

[沐云木易]

控件名称和代码相符，就是listviewd点击数据后不显示了，其他的我也不太懂

[笨狗先飞]

十有八九是数据库里没有这四个字段，你还是去看看数据库里有没有这四项吧。

[舉杯邀明月]

真是莫明其妙，你的那几句代码，跟 listview 有个毛关系啊。 都是text控件、记录(集)的字段操作的……

[jazzzu]

应该是数据库字段的问题

[脆皮大雪糕]

"个人"这张表根本就没有这四个字段。去改表结构！

[of123]

八成是在另一个表中。用另一个记录集对象（例如 rs1）打开，同样处理。

[良朋]

要在数据库的表结构增加你这4个字段。

[tunogoro]

程序太长，不好看懂，建议简化一下问题程序，能看的明白些。

[ZHRXJR]

红色字体是我自己加的，加上去就不行了
很明显，肯定是你的数据表中没有这些字段，手工打开 个人 数据表，添加 "周考成绩"、"月考成绩"、"期中成绩"、"期末成绩" 四个字段，数据类型是整型数据将应该没有问题了。