Foxtable(狐表) → 用户栏目 → 专家坐堂 → 时段录入导出问题


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

主题：时段录入导出问题
帅哥哟，离线，有人找我吗？
一笑
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		时段录入导出问题  发帖心情 Post By：2014/8/5 22:19:00 [显示全部帖子]

请教专家：
1. 可否通过EXCEL表格录入时段，尝试过，不成功；
2. 在合计模式下时段是秒，有没有办法显示小时：分钟？
图片点击可在新窗口打开查看此主题相关图片如下：合计图片.jpg
图片点击可在新窗口打开查看
3. 用狐表统计时段 导出EXCEL表格后却是以秒计的值 有没有办法导出后仍显示时段？谢谢
图片点击可在新窗口打开查看此主题相关图片如下：7月机型汇总.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：导出机型汇总.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
一笑
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		  发帖心情 Post By：2014/8/6 22:10:00 [显示全部帖子]

谢谢回复，又学到一些

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


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		  发帖心情 Post By：2014/8/6 22:22:00 [显示全部帖子]

麻烦版主 方便告诉一下 秒转小时分钟的表达吗？刚入门，请多多帮助

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


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		  发帖心情 Post By：2014/8/9 21:56:00 [显示全部帖子]

谢谢耐心回复。还有点问题：
1. 我输入了开始时间和结束时间，增加一个表达式列，用表达式[开始时间] - [结束时间]，结果不允许，请问可以吗？
2. 后来我看了帮助文件，使用DataColChanged事件代码：

Select Case e.DataCol.name Case "起始时间","结束时间" 
    Dim dr As DataRow = e.DataRow 
    If dr.IsNull("起始时间") Or dr.IsNull("结束时间") Then 
      dr("本次用时") = Nothing 
    Else 
      Dim tp As TimeSpan tp = dr("结束时间") - dr("起始时间") 
      dr("本次用时") = tp.TotalSeconds() 
      End If 
End Select
可以进行时段计算，但有个问题，结束时间跨天的时，比如起始时间是23:00结束时间是第二天01:00，计算出是负数，能帮忙修改一下代码，考虑到这种情况下：("结束时间") - dr("起始时间") <0时，加上24小时。

3. 为了计算时段，只能用DataColChanged事件代码？能用其他方法吗？
谢谢专家。
 回到顶部
帅哥哟，离线，有人找我吗？
一笑
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		  发帖心情 Post By：2014/8/10 17:19:00 [显示全部帖子]

专家你好！
1. 我增加了一个“时段”的表达式列，属性设置为双精度小数，扩展属性为时段，在设置表达式[起始时间] - [结束时间]时，不允许，弹出对话框，请见附件
图片点击可在新窗口打开查看此主题相关图片如下：表达式错误.png
图片点击可在新窗口打开查看

2. 我使用了DataColChanged事件代码，计算出本次用时，但会出现上次所述的负值，
图片点击可在新窗口打开查看此主题相关图片如下：负值.png
图片点击可在新窗口打开查看
   请问该如何修改代码。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:时段计算.table


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


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		  发帖心情 Post By：2014/8/11 21:16:00 [显示全部帖子]

谢谢专家的及时回复，让我对狐表更有信心。

1. 第一种表达式方法，很有创意和有效，虽然EXCEL表格不能直接导入时段，但给我提供很好的思路；

2. 第二种方法验证有效，很好，就是高！

顺便提个问题，用数据表做字典后，可以显示对应的项目，但能不能替换成对应项目，等于实现一种翻译功能，可以吗？

谢谢专家！
 回到顶部
帅哥哟，离线，有人找我吗？
一笑
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		  发帖心情 Post By：2014/8/13 21:44:00 [显示全部帖子]

专家你好！

我在狐表中“事件代号”的列属性中设置了代码项目，比如：704|复飞；起飞机场和着陆机场列中使用了数据字典-数据表（机场）；然后从EXCEL表格中导入数据（见导入原文：
图片点击可在新窗口打开查看此主题相关图片如下：导入原文.png
图片点击可在新窗口打开查看
）导入后有以下问题：

1. “事件代号”列（第1列）未能实现自动替换，比如把704替换为复飞（注：人工输入后能替换），能实现导入后自动替换吗？见导入结果：
图片点击可在新窗口打开查看此主题相关图片如下：f导入.png
图片点击可在新窗口打开查看

2. 代码项目只能人工逐项输入，如果项目较多则效率太低，能否像数据字典-数据表功能一样，批量输入？

3. 起飞机场和着陆机场列导入后能自动替换显示，但有一个问题，不能人工键盘输入，只能通过下拉菜单选择，能人工键盘输入？
详见项目文件。
谢谢
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:字典.table
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:导入原文.xlsx
 回到顶部
帅哥哟，离线，有人找我吗？
一笑
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		  发帖心情 Post By：2014/8/13 22:38:00 [显示全部帖子]

回复这么快，这么好，谢谢了。

下来好好学习。
 回到顶部
帅哥哟，离线，有人找我吗？
一笑
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		  发帖心情 Post By：2014/9/2 22:30:00 [显示全部帖子]

请教专家：
1. 我模仿写了以下代码，想在起飞机场中替换为名称，老是报错，不知为何
Dim fdr As DataRow
Dim dr As DataRow = e.DataRow
If e.DataCol.Name = "起站" Then
    fdr = DataTables("机场").Find("代码 = '" & dr("起站") & "'")
    If fdr IsNot Nothing Then
        dr("起飞机场") = fdr("名称")
    Else
        dr("起飞机场") = Nothing
    End If
2. 我使用表达式，比如：[地面] = [起地] + [落地] +[修理]
当[修理]无值时，[地面] 也无值，我想当当[修理]无值时，会累加[起地] + [落地]，得出[地面] 的值，如何实现，谢谢
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:8月时间+机场.table
 回到顶部
帅哥哟，离线，有人找我吗？
一笑
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		  发帖心情 Post By：2014/9/2 22:59:00 [显示全部帖子]

谢谢，回复真快，虽然还没好好学习教材，提前购买有些亏，但就凭你们这种态度，考虑购买开发版。

 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 8 次数据查询