Foxtable(狐表)用户栏目专家坐堂 → 窗口表加载


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

主题:窗口表加载

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


加好友 发短信
等级:二尾狐 帖子:502 积分:3620 威望:0 精华:0 注册:2015/4/21 22:45:00
窗口表加载  发帖心情 Post By:2018/8/8 12:55:00 [显示全部帖子]

Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
Dim Filter As String
Filter = "统计日期 >= #" & dt1 & "# And 统计日期 <= #" & dt2 & "# and 业务类型='天津水运'"
Tables("水运跟踪_Table1").loadfilter = Filter
Tables("水运跟踪_Table1").load()

副本表,因为我想把不同的类型加载在一个窗口的两个不同的表,table1和table2


[此贴子已经被作者于2018/8/8 12:58:21编辑过]

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


加好友 发短信
等级:二尾狐 帖子:502 积分:3620 威望:0 精华:0 注册:2015/4/21 22:45:00
  发帖心情 Post By:2018/8/8 14:34:00 [显示全部帖子]

这样加载后,目录树需要做怎么样的修改呢?

比如目录树中涉及的表名应该如何修改?


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


加好友 发短信
等级:二尾狐 帖子:502 积分:3620 威望:0 精华:0 注册:2015/4/21 22:45:00
  发帖心情 Post By:2018/8/8 15:07:00 [显示全部帖子]

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("国内物流", "年份|月份")
trv.Nodes.Insert("显示所有行",0)

Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
Dim Filter As String
Filter = "统计日期 >= #" & dt1 & "# And 统计日期 <= #" & dt2 & "# and 业务类型='天津水运'"
Tables("水运跟踪_Table1").filter = Filter 

Dim y1 As Integer = Date.Today.Year
Dim m1 As Integer = Date.Today.Month
Dim dt3 As New Date(y1, m1, 1)
Dim dt4 As New Date(y1, m1, Date.DaysInMonth(y1, m1)) '获取本月的最后一天
Dim Filter1 As String
Filter1 = "统计日期 >= #" & dt3 & "# And 统计日期 <= #" & dt4 & "# and 业务类型='荆州水运'"
Tables("水运跟踪_Table2").filter = Filter1



Dim Filter As String
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[年份] = '" & dr("年份") & "'"
        Case 1
            Filter = "[年份] = '" & dr("年份") & "' And [月份] = '" & dr("月份") & "'"
    End Select
End If
Tables("国内物流").Filter = Filter


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


加好友 发短信
等级:二尾狐 帖子:502 积分:3620 威望:0 精华:0 注册:2015/4/21 22:45:00
  发帖心情 Post By:2018/8/8 15:31:00 [显示全部帖子]

业务类型='天津水运'"的显示在Tables("水运跟踪_Table1")
业务类型='荆州水运'"的显示在Tables("水运跟踪_Table2")
现在目录树和窗口不对应


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


加好友 发短信
等级:二尾狐 帖子:502 积分:3620 威望:0 精华:0 注册:2015/4/21 22:45:00
  发帖心情 Post By:2018/8/10 9:15:00 [显示全部帖子]

Dim Filter As String
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[年份] = '" & dr("年份") & "'"
        Case 1
            Filter = "[年份] = '" & dr("年份") & "' And [月份] = '" & dr("月份") & "'"
    End Select
End If
Tables("水运跟踪_Table1").Filter = Filter & " and 业务类型='天津水运'"
Tables("水运跟踪_Table2").Filter = Filter & " and 业务类型='荆州水运''"


再请教,如果我不用副本表,代码该如何修改?
发觉用了副本表之后之前做的按钮代码都出现问题,无法使用,而且表达式列会出现只读弹窗。


[此贴子已经被作者于2018/8/10 9:26:20编辑过]

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


加好友 发短信
等级:二尾狐 帖子:502 积分:3620 威望:0 精华:0 注册:2015/4/21 22:45:00
  发帖心情 Post By:2018/8/10 9:36:00 [显示全部帖子]

DataTables("天津水运_Table1").loadFilter =  "业务类型 ='天津水运'"
DataTables("天津水运_Table1").load()



显示不存在名称为“天津水运_table1”的datatable

用窗口表名称还是用表名?
[此贴子已经被作者于2018/8/10 9:58:19编辑过]

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


加好友 发短信
等级:二尾狐 帖子:502 积分:3620 威望:0 精华:0 注册:2015/4/21 22:45:00
  发帖心情 Post By:2018/8/10 10:31:00 [显示全部帖子]

不存在名称为“天津水运_table1”的table
图片点击可在新窗口打开查看此主题相关图片如下:tim截图20180810103051.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:二尾狐 帖子:502 积分:3620 威望:0 精华:0 注册:2015/4/21 22:45:00
  发帖心情 Post By:2018/8/10 10:36:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:tim截图20180810103506.png
图片点击可在新窗口打开查看

我确认过窗口名称了呀
[此贴子已经被作者于2018/8/10 10:36:20编辑过]

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


加好友 发短信
等级:二尾狐 帖子:502 积分:3620 威望:0 精华:0 注册:2015/4/21 22:45:00
  发帖心情 Post By:2018/8/10 10:39:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:tim截图20180810103901.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:二尾狐 帖子:502 积分:3620 威望:0 精华:0 注册:2015/4/21 22:45:00
  发帖心情 Post By:2018/8/10 11:00:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:tim截图20180810105808.png
图片点击可在新窗口打开查看


前面的问题解决了,现在点击目录树会调错

.NET Framework 版本:2.0.50727.8831
Foxtable 版本:2018.3.9.1
错误所在事件:窗口,天津水运,TreeView1,NodeMouseDoubleClick
详细错误信息:
此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据


Tables("国内物流").DataTable.loadFilter =  "业务类型 ='天津水运'"
Tables("国内物流").DataTable.load()


Dim Filter As String
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[年份] = '" & dr("年份") & "'"
        Case 1
            Filter = "[年份] = '" & dr("年份") & "' And [月份] = '" & dr("月份") & "'"
    End Select
End If

[此贴子已经被作者于2018/8/10 11:02:54编辑过]

 回到顶部
总数 14 1 2 下一页