- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于连接 SQL 数据，使用的时候 数据同步更新的问题？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=11856)
-- 发布时间：2011/8/14 17:56:00
-- 关于连接 SQL 数据，使用的时候 数据同步更新的问题？
我的流程是这样：
数据 全部来源 SQL 包括 库存表，生产价格表。生产价格表 输入的时候产品来源于 库存表。
库存数据是和管家婆公用的，库存表里面没有该产品的时候是从管家新增新产品的。
如图 库存表（数据源是SQL的）
此主题相关图片如下：112.jpg
foxtable的生产价格表（数据源是SQL的）
此主题相关图片如下：111.jpg
管家婆 新增产品界面 （数据源是SQL的）已经确定“高压黑折边育苗袋”“13*15*0.03”“个” 该产品
已经添加到库存表中。
此主题相关图片如下：110.jpg
如图所示 管家婆已经 确定把 产品名称 “高压黑折边育苗袋”“13*15*0.03”“个” 添加到 仓库表中了。
可是如图 110.jpg 所示：该窗口的数据 来源于 SQL 仓库表，但是搜索的时候却没有出来。
只有关闭掉foxtable ，让他重新加载数据库，才会显示出该产品。
应该是 sql中的数据已经从后台更新了，但是foxtable 的数据没有能够及时更新引起的。这样的问题如何解决？
-- 发布时间：2011/8/14 18:01:00
--
参考：
http://www.foxtable.com/help/topics/2276.htm
最好看看Foxtable开发指南中关于动态加载的这一章的全部内容。
-- 发布时间：2011/8/15 8:53:00
--
不容易掌握呀。
比如 textchanged 的语句 是这样的 如何改成动态加载呢？
table 类型是Normal 副本是TRUE
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("窗口4_Table1")
If txt = "" Then
tbl.Filter =" leveal=2 and deleted=0 and isstop=0"
tbl.Sort = "pfullname desc,Standard desc,Unit1 desc"
Else
txt = "\'*" & txt & "*\'"
tbl.filter = "(pfullname Like " & txt & " Or Standard Like " & txt & " Or Unit1 Like " & txt & ") and (leveal=2 and deleted=0 and isstop=0)"
tbl.Sort = "pfullname desc,Standard desc,Unit1 desc"
End If
-- 发布时间：2011/8/15 9:04:00
--
两种方法
用追载：
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("窗口4_Table1")
tbl.DataTable.AppendLoad("条件")
If txt = "" Then
tbl.Filter =" leveal=2 and deleted=0 and isstop=0"
tbl.Sort = "pfullname desc,Standard desc,Unit1 desc"
Else
txt = "\'*" & txt & "*\'"
tbl.filter = "(pfullname Like " & txt & " Or Standard Like " & txt & " Or Unit1 Like " & txt & ") and (leveal=2 and deleted=0 and isstop=0)"
tbl.Sort = "pfullname desc,Standard desc,Unit1 desc"
End If
用加载：
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("窗口4_Table1")
Dim Filter As string
Dim Sort AS string
If txt = "" Then
Filter =" leveal=2 and deleted=0 and isstop=0"
Sort = "pfullname desc,Standard desc,Unit1 desc"
Else
txt = "\'%" & txt & "%\'" \'这里用%，不是*
filter = "(pfullname Like " & txt & " Or Standard Like " & txt & " Or Unit1 Like " & txt & ") and (leveal=2 and deleted=0 and isstop=0)"
Sort = "pfullname desc,Standard desc,Unit1 desc"
End If
tbl.DataTable.LoadFilter = Filter
tbl.DataTable.Load
tbl.sort = sort
-- 发布时间：2011/8/15 10:18:00
--
可以了 不错 不错！谢谢管理员！