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


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

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/11 21:24:00 [只看该作者]

 替换？那就用列表项目

 

 http://www.foxtable.com/help/topics/0057.htm

 
 回到顶部
帅哥哟，离线，有人找我吗？
一笑
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/13 22:15:00 [只看该作者]

 用代码来做

 

    

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


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

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

下来好好学习。
 回到顶部
帅哥哟，离线，有人找我吗？
一笑
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/9/2 22:36:00 [只看该作者]

1、

 

If e.DataCol.Name = "起站" Then
    Dim fdr As DataRow
    Dim dr As DataRow = e.DataRow
    fdr = DataTables("机场").Find("代码 = '" & dr("起站") & "'")
    If fdr IsNot Nothing Then
        dr("起飞机场") = fdr("名称")
    Else
        dr("起飞机场") = Nothing
    End If
End If

 

2、isnull([起地],0) + isnull([落地],0) + isnull([修理],0)
 回到顶部
帅哥哟，离线，有人找我吗？
一笑
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		  发帖心情 Post By：2014/9/8 16:41:00 [只看该作者]

我做了个窗口，里面有“查询”组合框，其中有“机号”和时间段删选条件，最初的代码如下：
Tables("八月时间").Filter = "机号 = '" & jh.Value & "'and 起飞日期 >= '" & ks.Value & "'and 起飞日期 <= '" & js.Value & "'"

有一个问题，如果“机号”为空值时，删选结果为空。于是我改为：

If jh.Value Is Nothing Then
Tables("八月时间").Filter = "起飞日期 >= '" & ks.Value & "'and 起飞日期 <= '" & js.Value & "'"
Else
Tables("八月时间").Filter = "机号 = '" & jh.Value & "'and 起飞日期 >= '" & ks.Value & "'and 起飞日期 <= '" & js.Value & "'"
到是能用，但觉得太繁琐。
请假专家：
1. 有更简单的方法吗？
2. 通过查看代码，模仿写了一个分组统计代码，但只能得到表中全部行的统计结果，无法得到我前面查询删选过后的行的统计结果，且只能作为临时表打开。我试着改代码，不成功，如何实现？
谢谢！并祝中秋节愉快！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:八月编程实验.table
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2014/9/9 9:45:00 [只看该作者]

1、没有更简单的代码

2、你要设置统计条件：

 

Dim jh As WinForm.ComboBox = e.Form.Controls("机号")
Dim gs As WinForm.ComboBox = e.Form.Controls("公司")
Dim jc As WinForm.TextBox = e.Form.Controls("机场")
Dim js As WinForm.DateTimePicker = e.Form.Controls("结束")
Dim ks As WinForm.DateTimePicker = e.Form.Controls("开始")
Dim g As New GroupTableBuilder("机型汇总", DataTables("dt1"))
g.Groups.AddDef("机号")
g.Totals.AddDef("空时")
g.Totals.AddDef("地面")
g.Totals.AddDef("总时间")
g.VerticalTotal = True
g.Filter = "机号 = '" & jh.Value & "'and 起飞日期 >= '" & ks.Value & "'and 起飞日期 <= '" & js.Value & "'"
g.Build()

3、如何在窗口显示统计结果，参考：

http://www.foxtable.com/help/topics/1909.htm

注意窗口中用于显示统计结果的Table控件不需要绑定到表。

 

4、不同的问题，最号分别发帖提问，不要一直跟在原帖后面
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/9/9 9:46:00 [只看该作者]

1、参考 http://www.foxtable.com/help/topics/1058.htm

 

2、可以设置分组统计的filter属性 http://www.foxtable.com/help/topics/0677.htm

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