[浏览完整版]
标题：[求助]数据加载条件
1楼
易服 发表于：2009/9/6 13:31:00
此主题相关图片如下：加载.gif
登录时选择其中一个乡加载数据
求： BeforeLoadInnerTable事件
If e.DataTableName = "总览" Then
e.Filter = "[乡名] = 代码？ "
End If
2楼
mr725 发表于：2009/9/6 13:48:00没完过，想了解～
3楼
yangming 发表于：2009/9/6 14:23:00应该这样?没文件测试
If e.DataTableName = "总览" Then
e.Filter = "[乡名] = " & e.User.ExtendedValues("数据加载")
End If
If e.DataTableName = "总览" Then
e.Filter = "[乡名] = " & e.User.ExtendedValues("数据加载")
End If
4楼
易服 发表于：2009/9/6 17:51:00
此主题相关图片如下：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
[此贴子已经被作者于2009-9-6 18:40:28编辑过]
5楼
yangming 发表于：2009/9/6 18:56:00我是9月2日的第二版,怎么还打不开你的文件?提示说你的版本太高,晕死了
6楼
易服 发表于：2009/9/6 19:35:00我也是9月2日的第二版
7楼
狐狸爸爸 发表于：2009/9/7 8:36:008楼
易服 发表于：2009/9/7 9:59:00贺老师改的
If e.DataTableName = "总览" Then
e.Filter = "[乡名] = '" & e.User.ExtendedValues("数据加载") & "'"
End If
[此贴子已经被作者于2009-9-7 11:18:58编辑过]
9楼
yangming 发表于：2009/9/7 10:10:00以下是引用易服在2009-9-7 9:59:00的发言：
贺老师改的 If e.DataTableName = "总览" Then e.Filter = "[乡名] = '" & e.User.ExtendedValues("数据加载") & "'" End If
贺老师改的 If e.DataTableName = "总览" Then e.Filter = "[乡名] = '" & e.User.ExtendedValues("数据加载") & "'" End If
收到,我知道错在何处了,呵呵
10楼
狐狸爸爸 发表于：2009/9/7 10:16:00呵呵，这个错误不关杨版主的事。
楼主自己才清楚数据类型的，杨版只能给一个思路。
楼主自己才清楚数据类型的，杨版只能给一个思路。