Foxtable(狐表)用户栏目专家坐堂 → 窗口录入与查询


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

主题:窗口录入与查询

美女呀,离线,留言给我吧!
云开月明
  81楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:173 积分:1021 威望:0 精华:0 注册:2016/10/15 9:35:00
  发帖心情 Post By:2017/3/31 9:31:00 [显示全部帖子]

老师,
      你好!
      FoxTable 分开发版和企业版,两种有什么区别?价格如何?

 回到顶部
美女呀,离线,留言给我吧!
云开月明
  82楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:173 积分:1021 威望:0 精华:0 注册:2016/10/15 9:35:00
  发帖心情 Post By:2017/4/1 15:57:00 [显示全部帖子]

老师,
       有个导航窗口,任务栏代码是这样写的,但我不想用户能找开Excel报表模板,而是打开报表列表,该如何修改代码?
Select Case e.Link.Name
    Case "供应商录入"
        Forms("供应商列表").Open
        MainTable = Tables("供应商列表")
    Case "存货档案"
        Forms("存货档案录入").Open
        MainTable = Tables("存货档案")
    Case "送货方式"
        Forms("送货方式").Open
        MainTable = Tables("送货方式")
    Case "订单录入"
        Forms("订单录入窗口").Open
        MainTable = Tables("订单列表")
    Case "订单审核"
        Forms("订单审核").Open
    Case "订单查询与打印"
        Forms("订单查询与打印").Open
    Case "报表"
        Syscmd.Project.OpenExcelTemplate()
End Select

 回到顶部
美女呀,离线,留言给我吧!
云开月明
  83楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:173 积分:1021 威望:0 精华:0 注册:2016/10/15 9:35:00
  发帖心情 Post By:2017/4/3 8:52:00 [显示全部帖子]

老师,
       附件一为订单审核窗口,窗口中的Table是SQL数据型,上面的控件都是绑定SQL Table的,内容是根据订单编号从订单列表中加载的,要求此SQL Table审核之后,只有到货日期可编辑,一键弃审后,可以修改或删除或增加行,
SQLTable的prepareEdit事件
If e.Row.IsNull("审批人") = False Then 
If e.Col.Name <> "到货日期"
    e.Cancel = True 
End If
Else
e.Table.AllowEdit = True
e.Table.AllowAddNew = True
e.Table.AllowDelete = True
End If
有时候可能误删行了,要求可以恢复,撤销和重做按钮代码如下:
Syscmd.Edit.Undo()
Syscmd.Edit.Redo()
提示不能通过已删除的行访问该行(如图)。
请老师帮忙指正。谢谢!

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

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

 回到顶部
美女呀,离线,留言给我吧!
云开月明
  84楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:173 积分:1021 威望:0 精华:0 注册:2016/10/15 9:35:00
  发帖心情 Post By:2017/4/5 8:43:00 [显示全部帖子]

老师,
      想把表格的样式修改为蓝白交替式,在AfterOpenProject
DataTables("成绩表").SysStyles("Alternate")
但是没用

 回到顶部
美女呀,离线,留言给我吧!
云开月明
  85楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:173 积分:1021 威望:0 精华:0 注册:2016/10/15 9:35:00
  发帖心情 Post By:2017/4/5 9:07:00 [显示全部帖子]

老师,
       如果是窗口SQL数据表,将以下代码写在窗口或表的Afterload没有用
DataTables("成绩表").SysStyles("Alternate").BackColor = Color.Blue
应该写哪里

 回到顶部
美女呀,离线,留言给我吧!
云开月明
  86楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:173 积分:1021 威望:0 精华:0 注册:2016/10/15 9:35:00
  发帖心情 Post By:2017/4/5 9:34:00 [显示全部帖子]

老师,
       如果开发版FOXTable2017在WIN7系统环境下设计并发布项目后,能安装在WIN XP系统上使用吗?

 回到顶部
美女呀,离线,留言给我吧!
云开月明
  87楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:173 积分:1021 威望:0 精华:0 注册:2016/10/15 9:35:00
  发帖心情 Post By:2017/4/5 11:37:00 [显示全部帖子]

老师:
    客服QQ800014337,这个号根本搜不到。
有个问题,采购管理系统试装到别的电脑,窗口布局和颜色都变了,如何设置适合不同分辨率的电脑?

 回到顶部
美女呀,离线,留言给我吧!
云开月明
  88楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:173 积分:1021 威望:0 精华:0 注册:2016/10/15 9:35:00
  发帖心情 Post By:2017/4/5 13:57:00 [显示全部帖子]

老师,
       如果不用系统颜色,我又应该如何设置颜色呢?
       我做窗口时预览是可以的,应用起来感觉窗口控制的间距拉大了

 回到顶部
美女呀,离线,留言给我吧!
云开月明
  89楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:173 积分:1021 威望:0 精华:0 注册:2016/10/15 9:35:00
  发帖心情 Post By:2017/4/5 17:02:00 [显示全部帖子]

老师

 回到顶部
美女呀,离线,留言给我吧!
云开月明
  90楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:173 积分:1021 威望:0 精华:0 注册:2016/10/15 9:35:00
  发帖心情 Post By:2017/4/5 17:05:00 [显示全部帖子]

老师:
打印按钮代码如下:
Dim Book As New XLS.Book(ProjectPath & "Attachments\采购订单一.xls")
Dim fl As String = ProjectPath & "Reports\采购订单一.xls"
Book.Build() 
Book.Save(fl) 
Dim Proc As New Process 
Proc.File = fl
Proc.Start()
但是打印的并不我所加载的订单,而是全部订单,请问(图一)的打印细节区如何定义,<all>那个位置如何修改,就是使用模板,打印窗所加载的订单?



 回到顶部