TABLE不显示数据，也就是没有加载数据！！！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → TABLE不显示数据，也就是没有加载数据！！！

共有25248人关注过本帖树形打印复制链接主题：TABLE不显示数据，也就是没有加载数据！！！

mr725

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/9/10 11:58:00 [显示全部帖子]

你不会往 Textbox 控件中，用Select 吧？？？？？？？

mr725

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/9/10 12:35:00 [显示全部帖子]

Controls("输入查询姓名")控件中textchange事件中：

Dim BB As String
BB = Forms("数据查询窗口").Controls("输入查询姓名").text
If BB <> "" Then
    Tables("数据查询窗口_Table1").DataSource = DataTables("人事工资管理")
End if
with e.Form
    Dim dst As Table = Tables("人事工资管理")
    Dim txb1 As WinForm.TextBox = .Controls("输入查询姓名")
    Tables("数据查询窗口_Table1").Filter = "[姓名] Like '*" & txb1.text & "*'"
end with

mr725

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/9/10 13:52:00 [显示全部帖子]

以下是引用blackzhu在2009-9-10 13:12:00的发言：

他不是要做查询，要做SQL加载表。这个查询上次我已经帮他做过一次了。

哈哈，你没有看看她的窗口吧？

此主题相关图片如下：未命名.jpg

[此贴子已经被作者于2009-9-10 13:52:21编辑过]

mr725

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/9/10 14:04:00 [显示全部帖子]

以下是引用blackzhu在2009-9-10 13:58:00的发言：

老兄，他的窗口中的查询有这呢，他的意思估计是在项目打开时不加载任何东西，在文本框输入数据时可以显示他所要的数据。楼主也不说话，不知道是不是的。

我打开她另一贴子里的项目，应该没错的。
呵呵··· 还是等楼主说话后再看啦 Waiting ～

mr725

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/9/10 15:15:00 [显示全部帖子]

以下是引用雨中的泪在2009-9-10 14:34:00的发言：
打开数据查询窗口时，不显示任何数据！！！
开始录入姓名时，开始加载数据！！！

10楼代码试过了么？～

mr725

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/9/10 18:02:00 [显示全部帖子]

以下是引用雨中的泪在2009-9-10 17:58:00的发言：
还是没有实现目的！！！

你指得是什么目的呢～咱怎么看不懂？？？有看懂的吗？～～～

mr725

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/9/10 18:11:00 [显示全部帖子]

以下是引用雨中的泪在2009-9-10 18:05:00的发言：
附件截图的这种目的！！！谢谢

用过10楼的代码试一试吗？？？

mr725

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/9/11 10:37:00 [显示全部帖子]

以下是引用雨中的泪在2009-9-11 8:43:00的发言：
还是没有实现得到！！！

你的问题真是难懂啊 ,
1、原来你用SQLQuery窗口,现在有改为normal窗口? 原来不加载数据,现在你的文件有加载了数据; 原来你的窗口基本属性中有SQL语句,现在有没有了??????????????
2、文本框中输入姓名时，可以显示这个人全部行啊～怎么说没有实现？？？？？？？？？？
俺反应迟钝啊～～图片点击可在新窗口打开查看

mr725

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/9/11 10:41:00 [显示全部帖子]

再猜一下：
是不是在afterlaod事件中加上：

With Tables("数据查询窗口_Table1")
.Filter = "_identify < 0"
End With

这样窗口Tables("数据查询窗口_Table1")中就没有任何数据了，而原表中都有。

[此贴子已经被作者于2009-9-11 10:51:01编辑过]

mr725

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/9/11 13:05:00 [显示全部帖子]

以下是引用雨中的泪在2009-9-11 12:15:00的发言：
但当输入姓名查询到一个人以后，清空输入姓名框，又是显示全部的数据！！！
这时也想达到窗口Tables("数据查询窗口_Table1")中就没有任何数据了，而原表中都有！！！

条件变化一下呀：
Dim BB As String
BB = Forms("数据查询窗口").Controls("输入查询姓名").text
If BB <> "" Then
    Tables("数据查询窗口_Table1").DataSource = DataTables("人事工资管理")
    Tables("数据查询窗口_Table1").SetColVisibleWidth("单位名称|60|姓名|80|身份证号|180")
    with e.Form
        Dim dst As Table = Tables("人事工资管理")
        Dim txb1 As WinForm.TextBox = .Controls("输入查询姓名")
        Tables("数据查询窗口_Table1").Filter = "[姓名] Like '*" & txb1.text & "*'"
    end with
else
    With e.Form
        Tables("数据查询窗口_Table1").Filter = "_identify < 0"
    End With
end if

下一主题 >> << 上一主题

总数 11 1 2 下一页

主题：TABLE不显示数据，也就是没有加载数据！！！