- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 动态加载数据问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5901)
-- 发布时间：2010/1/29 21:57:00
-- 动态加载数据问题
表CurrentChanged事件代码：
if tables("产品目录").count > 0
With DataTables("产品工序")
.LoadFilter = "[图号] = \'" & Tables("产品目录").Current("图号") & "\'"
.Load()
End With
With DataTables("产品工艺")
.LoadFilter = "[图号] = \'" & Tables("产品目录").Current("图号") & "\'"
.Load()
End With
Return
end if
在表行由0行到有行时，也会报错，加和删除红色代码都一样，图片如下：
此主题相关图片如下：未命名1.bmp
-- 发布时间：2010/1/29 22:00:00
--
还是文本框加载问题，用目录树加没问题，用文本框加载，如没找到数据，在输入能找到的事件时，就出现以上提示。
-- 发布时间：2010/1/29 22:03:00
--
为何不用Fill?看看我的项目。就是用Fill实现的动态加载。
此主题相关图片如下：0001.gif
[此贴子已经被作者于2010-1-29 22:07:43编辑过]
-- 发布时间：2010/1/29 22:11:00
--
不是填充数据，是从后台加载，表属性设置不加载数据的，要2种加载数据方式，一是从后台生成目录树，点击节点加载数据，一是文本框输入部分数据加载符合条件的行。后一个不能成功。
帖子和代码在http://www.datasoft.com.cn/fox/dispbbs.asp?boardid=2&id=5891&page=1&star=1 5楼
-- 发布时间：2010/1/29 22:13:00
--
文本框里动态加载也一样，
此主题相关图片如下：01.gif
代码如下：
Dim txt As String = e.Form.Controls("TextBox1").Text
Tables("录入_Table1").Fill("Select * From [F收费项目] where 拼音码 Like \'" & txt & "%\' or 别名拼音码 Like \'" & txt & "%\'","Yasys",True）
[此贴子已经被作者于2010-1-29 22:15:22编辑过]
-- 发布时间：2010/1/29 22:17:00
--
以下是引用wqc360在2010-1-29 22:11:00的发言：
不是填充数据，是从后台加载，表属性设置不加载数据的，要2种加载数据方式，一是从后台生成目录树，点击节点加载数据，一是文本框输入部分数据加载符合条件的行。后一个不能成功。
帖子和代码在http://www.datasoft.com.cn/fox/dispbbs.asp?boardid=2&id=5891&page=1&star=1 5楼
不是填充数据，是从后台加载，表属性设置不加载数据的，要2种加载数据方式，一是从后台生成目录树，点击节点加载数据，一是文本框输入部分数据加载符合条件的行。后一个不能成功。
帖子和代码在http://www.datasoft.com.cn/fox/dispbbs.asp?boardid=2&id=5891&page=1&star=1 5楼
我没有填充数据呀，也是从后台加载。表属性设置也是不加载的。
-- 发布时间：2010/1/29 22:59:00
--
以下是引用在2010-1-29 22:13:00的发言：
文本框里动态加载也一样，
代码如下：
Dim txt As String = e.Form.Controls("TextBox1").Text
Tables("录入_Table1").Fill("Select * From [F收费项目] where 拼音码 Like \'" & txt & "%\' or 别名拼音码 Like \'" & txt & "%\'","Yasys",True）
文本框里动态加载也一样，
代码如下：
Dim txt As String = e.Form.Controls("TextBox1").Text
Tables("录入_Table1").Fill("Select * From [F收费项目] where 拼音码 Like \'" & txt & "%\' or 别名拼音码 Like \'" & txt & "%\'","Yasys",True）
[此贴子已经被作者于2010-1-29 22:15:22编辑过]
菜鸟foxtable : 这个fill 速度怎么样，我试的时候总感觉有点卡呀～ 特别是在两个窗口table联动的的时候，很卡，不舒服呀～
-- 发布时间：2010/1/29 23:02:00
--
以下是引用菜鸟foxtable在2010-1-29 22:13:00的发言：
文本框里动态加载也一样，
此主题相关图片如下：01.gif
代码如下：
Dim txt As String = e.Form.Controls("TextBox1").Text
Tables("录入_Table1").Fill("Select * From [F收费项目] where 拼音码 Like \'" & txt & "%\' or 别名拼音码 Like \'" & txt & "%\'","Yasys",True）
文本框里动态加载也一样，
此主题相关图片如下：01.gif代码如下：
Dim txt As String = e.Form.Controls("TextBox1").Text
Tables("录入_Table1").Fill("Select * From [F收费项目] where 拼音码 Like \'" & txt & "%\' or 别名拼音码 Like \'" & txt & "%\'","Yasys",True）
[此贴子已经被作者于2010-1-29 22:15:22编辑过]
这个代码不适合楼主，他没有外部数据，全是内部表的， 而且窗口中的三个table是Normal型，都绑定到三个不同的关联表了。
-- 发布时间：2010/1/30 0:37:00
--
我的项目是外部数据，只是做示范文件用内补数据，我不会用ass数据库，项目是sql的。
这时mr725，我改了以下，2个关联表我先不加载数据，动态加载，已经ok了，明天我再放到我的sql数据库的项目中试试看还有没有什么问题，再次感谢mr725，谢谢您
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:动态加载数据问题 myslf 管理项目19.table |
[此贴子已经被作者于2010-1-30 0:43:12编辑过]
-- 发布时间：2010/1/30 1:02:00
--
以下是引用wqc360在2010-1-29 22:11:00的发言：
不是填充数据，是从后台加载，表属性设置不加载数据的，要2种加载数据方式，一是从后台生成目录树，点击节点加载数据，一是文本框输入部分数据加载符合条件的行。后一个不能成功。
帖子和代码在http://www.datasoft.com.cn/fox/dispbbs.asp?boardid=2&id=5891&page=1&star=1 5楼
不是填充数据，是从后台加载，表属性设置不加载数据的，要2种加载数据方式，一是从后台生成目录树，点击节点加载数据，一是文本框输入部分数据加载符合条件的行。后一个不能成功。
帖子和代码在http://www.datasoft.com.cn/fox/dispbbs.asp?boardid=2&id=5891&page=1&star=1 5楼
Dim txb1 As String = e.Form.Controls("TextBox1").Text
Dim Filter As string = "[图号] Like \'%" & txb1 & "%\'or [名称] Like \'%" & txb1 & "%\'"
DataTables("产品目录").LoadFilter = Filter
DataTables("产品目录").Load()