这个是你机器上安装了Visual SourceSafe才跳的，进行原码控制的，非常实用，特别是团队开发中，sourcesafe可建立一个数据库文件对你的源代码进行增量备份，一旦你以后发现现在的代码状态不如以前某个状态时，可以将代码回滚到以前状态，在回滚前你可以对代码进行对比。个人嘛可以直接点no忽略了。如果想不提示只需要找菜单项：Add-ins\Add in Manager,找到souce code control 项,去掉Load on behavoir 内所有选项即可。

[此贴子已经被作者于2007-7-13 22:41:53编辑过]

谢谢楼上

打不开你的那个压缩文件~!~总是提示加载错误~!~

你装个WinRAR，不知道你是用什么解压？

学习一下！

那查询功能代码怎么写?

If Option1.Value = True Then

If Val(Text1.Text) <> girl Then Text1.Text = Str$(boy)

If Val(Text1.Text) = girl Then

Adodc1.RecordSource = "SELECT * FROM XSDJ WHERE 性别=0"
Adodc1.Refresh
Text1.Text = "女生"

Else

If Val(Text1.Text) = boy Then

Adodc1.RecordSource = "SELECT * FROM XSDJ WHERE 性别=-1"
Adodc1.Refresh
Text1.Text = "男生"

End If

End If

End If

声明：
Private Const boy = -1
Private Const girl = 0

如果是DATA控件呢

选NO就可以了

我是初学的,先学习一下.