主题：外部数据文件选择

在帮助文件BeforeConnectOuterDataSource事件中,事例3是弹出一个对话框,用来选择外部数据文件.

我想做到当第一次选择了外部数据文件以后,下次就不再弹出对话眶了.把项目文件安装在局域网上的另外一台电脑上也要做到同样要求，该怎么做呢？

BeforeConnectOuterDataSource事件代码如下：

Dim ljcs As Integer
ljcs = GetConfigValue("lj",1) '假定保存试用次数的设置名称为Count
If ljcs = 1  Then
  If e.Name = "办证平台外部数据源" Then
      Dim dlg As New OpenFileDialog
      dlg.title= "请选择数据来源"
      dlg.Filter= "Access文件|*.mdb"
      If dlg.ShowDialog = DialogResult.Ok Then
          e.C & dlg.FileName & ";Persist Security Info=False"
      End If
  End If
Else
  ljcs=ljcs+1
  SaveConfigValue("lj",ljcs)
End If

执行后报错：

此主题相关图片如下：123.jpg

好象是每找到变量"ljcs"的值，可是该怎么样去判断呢？

狐爸:BeforeConnectOuterDataSource事件代码有错误吗?怎么没达到效果呢?

Dim Count As Integer
Count = Registry.GetValue("HKEY_CURRENT_USER\Software\MyApp","Count",1)
If Count = 1  Then
  If e.Name = "办证平台外部数据源" Then
      Dim dlg As New OpenFileDialog
      dlg.title= "请选择数据来源"
      dlg.Filter= "Access文件|*.mdb"
      If dlg.ShowDialog = DialogResult.Ok Then
          e.C & dlg.FileName & ";Persist Security Info=False"
      End If
  End If
Else
  Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","Count",Count + 1)
End If

把代码做如下修改,好用了.但是是前两次启动出现提示框,可能每一次读取注册表的时间较慢才造成的.

Dim C As Integer
C = Registry.GetValue("HKEY_CURRENT_USER\Software\MyApp","Count",0)
If C <= 1  Then
  If e.Name = "办证平台外部数据源" Then
      Dim dlg As New OpenFileDialog
      dlg.title= "请选择数据来源"
      dlg.Filter= "Access文件|*.mdb"
      If dlg.ShowDialog = DialogResult.Ok Then
          e.C & dlg.FileName & ";Persist Security Info=False"
      End If
  End If
  Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","Count",C + 1)
End If