- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 原来好好地自定义录入界面突然出错了，怎么回事呢？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=12494)
-- 发布时间：2011/9/5 17:38:00
-- 原来好好地自定义录入界面突然出错了，怎么回事呢？
此主题相关图片如下：126.jpg
上个月 打得好好地，停了几天到这个月就突然出错了。
一定要说 有where 代码的话
只有这里了
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/9/5 17:50:00
--
前面加一行，看看合成的Filter是啥：
MessageBox.show(filter)
tbl.DataTable.LoadFilter = Filter
tbl.DataTable.Load
tbl.sort = sort
-- 发布时间：2011/9/5 18:04:00
--
此主题相关图片如下：127.jpg
-- 发布时间：2011/9/5 20:59:00
--
leveal => level ???
-- 发布时间：2011/9/5 21:09:00
--
代码看不出问题来，升级你的foxtable到最新的版本，如果还有问题，明天帮你远程看一下。
-- 发布时间：2011/9/6 8:23:00
--
回复 4楼 mr725
没有 看到
|
leveal => level ???
|
-- 发布时间：2011/9/6 8:52:00
--
源文件如下
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:琼富生产系统_0906.zip |
-- 发布时间：2011/9/6 10:23:00
--
数据库下载地址：
直接 点击地址可能无法 下载，我用 迅雷可以下载。
项目数据源 需要 改一下 qiongfu2 改成 tt
麻烦 帮我看下。
-- 发布时间：2011/9/6 10:38:00
--
你的项目文件的开发者密码是什么？ 进不去啊。
-- 发布时间：2011/9/6 10:52:00
--
密码发论坛邮件了。