7EUJu8r4.rar (308.52 KB) [求助]保存、查询的代码错在哪？

[此贴子已经被作者于2007-6-17 23:27:23编辑过]

4I6OIbrT.rar (308.52 KB) [求助]保存、查询的代码错在哪？

O4atBnhE.jpg (25.04 KB)

图片附件: 游客没有浏览图片的权限，请 登录 或 注册

改成这样的代码时，也和上面的一样错误。请帮忙修改，谢谢！

Private Sub xToolbar1_ButtonClick(ByVal ButtonIndex As Integer, ByVal ButtonKey As String)
Select Case ButtonKey
Case "AddCord"
Call StartAdd '添加代码界面
Case "Search"
Call StartSea '查询代码界面
End Select
End Sub

Sub StartSea() '查询代码界面
Frame1.Visible = False
TreeView1.Visible = True
RichTextBox1.Visible = False
RichTextBox2.Visible = True
End Sub

Sub StartAdd() '添加代码界面
Frame1.Visible = True
TreeView1.Visible = False
RichTextBox1.Visible = True
RichTextBox2.Visible = False
End Sub

[此贴子已经被作者于2007-6-18 8:34:38编辑过]

I8ddCS3d.rar (308.54 KB)

原来是这样的：

Sub StartSea() '查询代码界面
Form1.Frame1.Visible = False
Form1.TreeView1.Visible = True
Form1.RichTextBox1.Visible = False
Form1.RichTextBox2.Visible = True
End Sub

Sub StartAdd() '添加代码界面
Form1.Frame1.Visible = True
Form1.TreeView1.Visible = False
Form1.RichTextBox1.Visible = True
Form1.RichTextBox2.Visible = False
End Sub

8rfVLHg1.rar (308.72 KB) [求助]保存、查询的代码不知道错在哪？

[此贴子已经被作者于2007-6-18 10:02:23编辑过]

7OBXXme7.jpg (25.48 KB)

图片附件: 游客没有浏览图片的权限，请 登录 或 注册

5359nNNa.rar (308.72 KB) [求助]保存、查询的代码错在哪？