以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于模糊查询 的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107437)

--  作者:tis0046
--  发布时间:2017/9/28 9:49:00
--  关于模糊查询 的问题
在表1里新建一个窗口,窗口插入一个TextBox和一个Table控件,Table控件的“作为副本”属性设置为True,“允许编辑”属性设置为False,Table绑定表1后,TextBox输入查询内容,Table依然显示表1全部内容,不显示查找结果



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


--  作者:tis0046
--  发布时间:2017/9/28 9:50:00
--  

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

--  作者:有点甜
--  发布时间:2017/9/28 9:57:00
--  

改代码

 

Dim tbl As Table = e.Form.Controls("Table1").Table

 


--  作者:tis0046
--  发布时间:2017/9/28 10:06:00
--  
谢谢,弄好了 ,日期那个能不能帮我解决一下 麻烦了
--  作者:有点甜
--  发布时间:2017/9/28 10:08:00
--  
以下是引用tis0046在2017/9/28 10:06:00的发言:
谢谢,弄好了 ,日期那个能不能帮我解决一下 麻烦了

 

这个意思? http://www.foxtable.com/webhelp/scr/1452.htm

 


--  作者:tis0046
--  发布时间:2017/9/28 10:16:00
--  
跟示例三差不多 能不能做出 结束日期-今天日期(变量)=剩余多少天 ,我用EXCEl会做,刚转到FOXTABLE完全小白,请大神指点


--  作者:有点甜
--  发布时间:2017/9/28 10:19:00
--  

datacolchanged

 

Select Case e.DataCol.Name
    Case "完成日期"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("完成日期") Then
            dr("执行天数") = Nothing
        Else
            Dim tp As TimeSpan = cdate(dr("完成日期")) - Date.Today
            dr("执行天数") = tp.TotalDays
        End If
End Select

 

 

AfterOpenProject事件

 

datatables("表A").datacols("完成日期").RaiseDataColChanged


--  作者:tis0046
--  发布时间:2017/9/28 10:55:00
--  
还是跟原来一样,CASE后缺少操作数图片点击可在新窗口打开查看
--  作者:有点甜
--  发布时间:2017/9/28 12:52:00
--  

在这里写代码

 

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

 


--  作者:tis0046
--  发布时间:2017/9/29 13:57:00
--  
谢谢您的讲解,按您说的我在datacolchanged里输入命令后,并没有算出算数,您再帮我看看
图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看