Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 加载数据表公式


  共有2284人关注过本帖树形打印复制链接

主题：[求助] 加载数据表公式
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		[求助] 加载数据表公式  发帖心情 Post By：2014/10/25 11:33:00 [显示全部帖子]

由于“FTTH”数据表数据量很大，为了不影响打开项目的速度；我在项目属性的BeforeLoadOuterTable中写了以下命令来禁止打开项目时加载“FTTH”数据表。

If e.DataTableName = "FTTH" Then
    e.SelectString = "Select * From {FTTH} Where [_Identify] Is Null"
End If


然后我在打开“FTTH主窗口”的AfterLoad事件中写了以下命令，无法达到重新加载“FTTH”表数据的目的；这个命令我该怎么改？

If DataTables.Contains("FTTH") = False Then
    DataTables.Load("FTTH") '加载订单表,注意由于BeforeLoadOuterTable事件设置的代码,执行后只加载了结构,没有数据
End If
DataTables("FTTH").Load

MainTable = Tables("FTTH") '切换到订单表
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2017/2/9 12:01:00 [显示全部帖子]

加载数据时提示错误

DataTables("装机工单表").LoadFIlter = "管控预约分组 = User.Roles  "
DataTables("装机工单表").Load

 


图片点击可在新窗口打开查看此主题相关图片如下：360截图20170209115810942.jpg
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下：360截图20170209115955326.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2017/2/9 12:00:56编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2017/3/27 16:38:00 [显示全部帖子]

日期列在何种情况下会把时间归“0” ？比如我当前行的日期列内容为：2017-03-21 16:32  但是当我双击该工单时；日期会变成: 2017-03-21 00:00
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2017/3/27 16:59:00 [显示全部帖子]

应该是打开了这个窗口后就会。没查出这个窗口有问题的

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:预约.rar
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2017/3/27 17:34:00 [显示全部帖子]

我现在的情况是双击的时候没有问题；双击后打开其他窗口也没问题；就是只有在打开这个窗口是才会这样

 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2017/4/24 10:48:00 [显示全部帖子]

我的外部数据源是：Access ; 以下命令该怎么修改？

 

e.Sender.ComboList = DataTables("网管导出光功率数据表").SQLGetComboListString("数据日期")
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2017/5/8 14:46:00 [显示全部帖子]

 如果我的内容是 CheckedComboBox 复选框；我的命令该怎么改？

 

Dim t As Table = Forms("管控导单组主窗口").Controls("Table3").Table

If e.Form.Controls("列名").text > "" Then
   e.Sender.ComboList = t.DataTable.SQLGetComboListString(e.Form.Controls("列名").text)
End If

 


图片点击可在新窗口打开查看此主题相关图片如下：360截图20170508144211545.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2017/5/8 15:10:00 [显示全部帖子]

加载不到任何数据

 

 


图片点击可在新窗口打开查看此主题相关图片如下：360截图20170508150919412.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2017/5/8 15:17:00 [显示全部帖子]

Dim tj1 As String = e.Form.Controls("列名").text
Dim nr1 As String = e.Form.Controls("内容").text

Dim dr As Table = CurrentTable


If e.Form.Controls("列名").text  <>  ""  And e.Form.Controls("内容").text  <>  ""   Then

DataTables(""& CurrentTable.name &"").LoadFIlter =  "  工单号 Is null  Or ( " & tj1 & "  like  '%"& nr1 & "%' ) " ' " & 条件3 & "  like '%" & 内容3 & "%'
DataTables(""& CurrentTable.name &"").Load

Else
MessageBox.show("请输入要查询的完整信息!!!", "非常关键提醒")
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 6 次数据查询