以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  在窗口中更新的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115045)
--  作者：weipeng6999
--  发布时间：2018/2/28 12:02:00
--  在窗口中更新的问题
老师：
1、我在菜单中设计了一个起始和结束时间，统计按键后，弹出一个统计窗口通过identify进行统计，但是在第一次计数后就更新不了了。

请教该在哪里进行修改刷新。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.table


2、起始和结束时间为空值时，点击统计报“该字符串未被识别为有效的 DateTime。”错误，请问该怎么修改。
--  作者：有点甜
--  发布时间：2018/2/28 12:09:00
--  

1、

 

Dim dt1 As RibbonMenu.DatePicker = RibbonTabs("功能区").Groups("统计").Items("开始日期输入")

Dim dt2 As RibbonMenu.DatePicker = RibbonTabs("功能区").Groups("统计").Items("结束日期输入")

Dim lbl As WinForm.Label
lbl = e.Form.Controls("统计")


lbl.text="起始日期:" & dt1.value & " 至 结束日期: " & dt2.value & " 共计: " & Tables("产品").Compute("count(_identify)") & " 份 "

 

2、

 

Dim dt1 As RibbonMenu.DatePicker = RibbonTabs("功能区").Groups("统计").Items("开始日期输入")
Dim dt2 As RibbonMenu.DatePicker = RibbonTabs("功能区").Groups("统计").Items("结束日期输入")
Dim filter As String = "1=1"
If dt1.value <> noting Then
    filter &=" and 日期 >= #" &dt1.value &"#"
End If
If dt2.value <> Nothing Then
    filter &= " And 日期<=#" & dt2.value & "#"
End If
Tables("产品").Filter=filter
Forms("统计").Open
--  作者：weipeng6999
--  发布时间：2018/2/28 15:44:00
--  
谢谢老师！再问个问题，今天我试打印功能，打印突然出现“www.foxtable.com”的底纹，以前没有的。是因为试用版的原因吗？
--  作者：有点甜
--  发布时间：2018/2/28 16:06:00
--  
以下是引用weipeng6999在2018/2/28 15:44:00的发言：
谢谢老师！再问个问题，今天我试打印功能，打印突然出现“www.foxtable.com”的底纹，以前没有的。是因为试用版的原因吗？

 

是的，试用版快到的时候，就会出现这个底纹。

 

付费购买正版即可。联系客服QQ800014337