Foxtable(狐表) → 用户栏目 → 专家坐堂 → 查询页面显示问题


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

主题：查询页面显示问题
美女呀，离线，留言给我吧！
学学
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：62 积分：498 威望：0 精华：0 注册：2017/9/2 20:25:00 		查询页面显示问题  发帖心情 Post By：2017/11/13 9:38:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20171113093514.png
图片点击可在新窗口打开查看
1、要怎么才能一打开窗口，，，，页面窗口显示的是第二个表的内容
2、查询完成的时候，，，下面的页面窗口显示的是  有结果的页面  
图片点击可在新窗口打开查看此主题相关图片如下：qq图片20171113093349.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

1、AfterLoad事件

 

http://www.foxtable.com/webhelp/scr/0831.htm

 

2、查询代码你写了吗？怎么写的？不会做请上传具体实例。

 

http://www.foxtable.com/webhelp/scr/1058.htm

 
 回到顶部
美女呀，离线，留言给我吧！
学学
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：62 积分：498 威望：0 精华：0 注册：2017/9/2 20:25:00 		怎么查询页面里不为空的页面，，除去全部订单  发帖心情 Post By：2017/11/13 9:59:00 [只看该作者]

Dim Filter As String
With e.Form.Controls("开始日期")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("结束日期")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 <= #" & .Value & "#"
    End If
End With
With e.Form.Controls("订单号")
    If .Text > ""Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "订单号 = '" & .Text & "'"
    End If
End With
With e.Form.Controls("电话")
    If .Text > "" Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "电话 = '" & .Text & "'"
    End If
End With
With e.Form.Controls("销售商编号")
    If .Text > "" Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "销售商编号 = '" & .Text & "'"
    End If
End With
e.Form.Controls("线下待发货订单数据表").Table.Filter = filter
e.Form.Controls("线下已发货数据表").Table.Filter = filter
e.Form.Controls("线下已收货数据表").Table.Filter = filter
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

比如

 

If e.Form.Controls("线下待发货订单数据表").Table.Rows.Count > 0 Then

    e.form.Controls("TabControl1").SelectedIndex = 1

ElseIf e.Form.Controls("线下已发货数据表").Table.Rows.Count > 0 Then

    e.form.Controls("TabControl1").SelectedIndex = 2

ElseIf e.Form.Controls("线下已收货数据表").Table.Rows.Count > 0 Then

    e.form.Controls("TabControl1").SelectedIndex = 3

End If
 回到顶部
美女呀，离线，留言给我吧！
学学
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：62 积分：498 威望：0 精华：0 注册：2017/9/2 20:25:00 		谢谢田（大神）老师可以了，，，， 追问一下，，导出数据表的时候能自己选择导出的是哪个表吗？？？  发帖心情 Post By：2017/11/13 10:15:00 [只看该作者]

谢谢田（大神）老师可以了，，，，   追问一下，，导出数据表的时候能执行组合框中选中的表吗？？？

图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "excel文件|*.*" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.SourceTableName = "线下全部订单数据表" '指定导出表
    ex.Format = "Excel" '导出格式为Excel
    ex.filepath = dlg.FileName  '指定目标文件
    ex.Export() '开始导出
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "excel文件|*.xls;*.xlsx" '设置筛选器


If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.SourceTableName = CurrentTable.DataTable.name
    ex.Filter = CurrentTable.Filter
    ex.Format = "Excel" '导出格式为Excel
    ex.filepath = dlg.FileName  '指定目标文件
    ex.Export() '开始导出
End If

 

 

----------------或者

 

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "excel文件|*.xls;*.xlsx" '设置筛选器


If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    CurrentTable.SaveExcel(dlg.FileName, CurrentTable.name)
End If
 回到顶部
美女呀，离线，留言给我吧！
学学
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：62 积分：498 威望：0 精华：0 注册：2017/9/2 20:25:00 		组合框里如何绑定某一个表？？？  发帖心情 Post By：2017/11/13 11:29:00 [只看该作者]

组合框里如何绑定某一个表？？？

 回到顶部
美女呀，离线，留言给我吧！
学学
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：62 积分：498 威望：0 精华：0 注册：2017/9/2 20:25:00 		没看懂这句是什么意思  发帖心情 Post By：2017/11/13 11:34:00 [只看该作者]

没看懂这句是什么意思图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看 
ex.SourceTableName = CurrentTable.DataTable.name
    ex.Filter = CurrentTable.Filter
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以下是引用学学在2017/11/13 11:29:00的发言：
组合框里如何绑定某一个表？？？

 

你要问这个？ http://www.foxtable.com/webhelp/scr/1523.htm

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


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

以下是引用学学在2017/11/13 11:34:00的发言：
没看懂这句是什么意思图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看 
ex.SourceTableName = CurrentTable.DataTable.name
    ex.Filter = CurrentTable.Filter

 

参考 http://www.foxtable.com/webhelp/scr/2925.htm

 

currentTable是表示当前表的意思。
 回到顶部
总数 15 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.04785 秒, 4 次数据查询