请教:急
有一段程序,是添加评语的,为什么在整个系统运行时不会出现错误而在单独窗体运行时会出现错误?马上要答辩了,着急啊!谢谢~~~~~~~~~出现错误的窗体代码如下::请教高手~~~~~~~~VERSION 5.00
Begin VB.Form Form8
Caption = "评语管理"
ClientHeight = 4995
ClientLeft = 60
ClientTop = 450
ClientWidth = 8100
Icon = "评语管理.frx":0000
LinkTopic = "Form8"
ScaleHeight = 4995
ScaleWidth = 8100
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command2
Caption = "删除"
Height = 495
Left = 840
TabIndex = 3
Top = 2760
Width = 1455
End
Begin VB.CommandButton Command1
Caption = "添加"
Height = 495
Left = 840
TabIndex = 2
Top = 2040
Width = 1455
End
Begin VB.ComboBox Combo1
Height = 300
Left = 720
TabIndex = 1
Top = 1200
Width = 1935
End
Begin VB.ListBox List1
DataSource = "Data1"
Height = 2400
ItemData = "评语管理.frx":0442
Left = 3480
List = "评语管理.frx":0444
TabIndex = 0
Top = 1080
Width = 3615
End
End
Attribute VB_Name = "Form8"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Combo1_Click()
Dim Totle As Integer
List1.Clear
Form2.Data2.RecordSource = "select * from remark where ((remark.father=" & Chr(34) & Combo1.Text & Chr(34) + "))"
Form2.Data2.Refresh
Form2.Data2.Recordset.MoveLast
Form2.Data2.Recordset.MoveFirst
Totle = Form2.Data2.Recordset.RecordCount
For i = 1 To Totle
List1.AddItem Form2.Data2.Recordset.Fields(1).Value
Form2.Data2.Recordset.MoveNext
Next i
End Sub
Private Sub Command1_Click()
Dim NewRecord As String
If Combo1.Text = "" Then
MsgBox "请选择评语类型!"
Exit Sub
End If
NewRecord = InputBox("请输入要添加的评语")
List1.AddItem NewRecord
Form2.Data2.RecordSource = "select * from remark "
Form2.Data2.Refresh
Form2.Data2.Recordset.AddNew
Form2.Data2.Recordset.Fields(0).Value = Combo1.Text
Form2.Data2.Recordset.Fields(1).Value = NewRecord
Form2.Data2.UpdateRecord
MsgBox "添加成功!"
End Sub
Private Sub Command2_Click()
If List1.ListIndex < 0 Then
MsgBox "请选择要删除的评语!!!~~~"
Exit Sub
End If
DeleteR = List1.Text
List1.RemoveItem (List1.ListIndex)
Form2.Data2.RecordSource = "select * from remark where ((remark.son=" & Chr(34) & DeleteR & Chr(34) + "))"
Form2.Data2.Refresh
Form2.Data2.Recordset.MoveLast
Form2.Data2.Recordset.MoveFirst
Totle = Form2.Data2.Recordset.RecordCount
For i = 1 To Totle
If Form2.Data2.Recordset.Fields(0).Value <> Combo1.Text Then
Else
Form2.Data2.Recordset.Delete
Form2.Data2.Recordset.MoveNext
End If
Next i
MsgBox "删除成功!!!~~~"
End Sub
Private Sub Form_Load()
Combo1.AddItem "学习1"
Combo1.AddItem "学习2"
Combo1.AddItem "劳动1"
Combo1.AddItem "劳动2"
Combo1.AddItem "劳动3"
Combo1.AddItem "为人1"
Combo1.AddItem "为人2"
End Sub
Private Sub List1_Click()
DeleteI = List1.ListIndex
End Sub
--------------------编程问答-------------------- 即没有说明错误提示内容,也不知道运行到什么位置出错。
这么长,没时间看。
补充:VB , 数据库(包含打印,安装,报表)