主题：[求助]数据加载条件

此主题相关图片如下：加载.gif


登录时选择其中一个乡加载数据

求： BeforeLoadInnerTable事件
 
If e.DataTableName = "总览" Then

e.Filter = "[乡名] = 代码？ "

End If

此主题相关图片如下：2009-9-6 17-44-29.png

      项目文件再也打不开了（长按CTRL也不行）因为启动速度慢才想起加载部分数据，表中的数据不算多还不到4万行，是不是
表达式列太多（数据列55，表达式列65）的原因。有的数据要通过表达式取得，有不有更好的办法不用表达式彧少用表达式？
     另外发现PositionChanged:  StatusBar.Message1 = "第" & (e.Table.Position + 1) & "行,共" & e.Table.Rows.Count & "行"   红色部分不生效，不论光标在哪一行始终显示第一行。以前版本生效，不知从哪个版本起无效，换以前版本提示版本太高

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:退耕还林管理系统.rar

(我打不开的)
PASS:1E40F

我也是9月2日的第二版

贺老师改的 If e.DataTableName = "总览" Then e.Filter = "[乡名] = '" & e.User.ExtendedValues("数据加载") & "'" End If

如果不选取乡名则加载全部数据代码该如何改？ 试了几次不成功，代码一错文件再也打不开，以前不会这样连改正的机会都没有了。

如果不选取乡名则加载全部数据代码该如何改？

If e.DataTableName = "总览" Then 
    If e.User.ExtendedValues("数据加载") > "" Then
         e.Filter = "[乡名] = '" & e.User.ExtendedValues("数据加载") & "'"
    End If
End If

      以上代码还有个缺限就是第一次登录窗口数据加载值出现空白（千万不能选）可以加载全部数据，一旦选中乡名（就不能出现空白）打开文件退出，再打开时登录窗口数据加载值出现乡名只能加载某个乡而不能出现空白可以加载全部数据。重新设置用户管理扩展属性（只要打开确定就可以什么也不要动）
      不能实现按需选择有点麻烦

贺老师敬业精神令人佩服

好用了谢谢