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


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

主题:[求助] 加载数据表公式

帅哥哟,离线,有人找我吗?
有点色
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/9 12:02:00 [显示全部帖子]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/27 16:47:00 [显示全部帖子]

以下是引用wumingrong1在2017/3/27 16:38:00的发言:

日期列在何种情况下会把时间归“0” ?比如我当前行的日期列内容为:2017-03-21 16:32  但是当我双击该工单时;日期会变成: 2017-03-21 00:00

 

你表事件有没有写代码?有没有重新赋值?


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/27 17:14:00 [显示全部帖子]

 窗口没看出问题。你看看你表事件写了什么代码。先注释掉。

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/27 18:28:00 [显示全部帖子]

1、看你窗口控件日期格式是否设置正确 http://www.foxtable.com/webhelp/scr/0044.htm

 

2、把窗口代码都注释掉看看。


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/24 10:50:00 [显示全部帖子]

e.Sender.ComboList = DataTables("网管导出光功率数据表").SQLGetComboListString("format(数据日期, 'yyyy-MM-dd')")

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/8 14:50:00 [显示全部帖子]

 命令不用改,现在有什么问题?

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/8 15:12:00 [显示全部帖子]

 贴出你写的查询代码。

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/8 15:27:00 [显示全部帖子]

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

If e.Form.Controls("列名").text  <>  ""  And e.Form.Controls("内容").text  <>  ""   Then
    CurrentTable.DataTable.LoadFIlter =  "工单号 Is null Or (" & tj1 & " in ('"& nr1.Replace(",", "','") & "'))"
    CurrentTable.DataTable.Load
   
Else
    MessageBox.show("请输入要查询的完整信息!!!", "非常关键提醒")
End If


 回到顶部