- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=61144)
-- 发布时间：2014/12/7 22:52:00
-- 求代码
在窗口添加一个文本控件,想实现,如果
-- 发布时间：2014/12/7 22:56:00
--
代码大致这样写，具体请上传例子
Dim r As Row = Tables("表A").Current
If r("二保日期列") > Date.Today AndAlso r("年审日期列") > Date.Today AndAlso r("靠挂费日期列") > Date.Today Then
Else
End If
-- 发布时间：2014/12/7 23:03:00
--
主窗口 最下面的当前车辆: 这里显示
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:日新车队管理系统.foxdb |
-- 发布时间：2014/12/7 23:28:00
--
另外版 主帮我看下,怎么处理数据时这么慢啊,是不是因为添加的这些文本控件,都是有绑定的,在搜索数据时,这些文本控件一闪一闪的,处理数据特别慢,怎么办
-- 发布时间：2014/12/7 23:40:00
--
表事件 currentchanged
If forms("日新车队").opened Then
Dim r As Row = e.Table.Current
If r("二保日期") >= Date.Today AndAlso r("营运证年审") >= Date.Today AndAlso r("靠挂费日期") >= Date.Today Then
forms("日新车队").Controls("TextBox23").Text = "正常"
Else If r("二保日期") < Date.Today AndAlso r("营运证年审") >= Date.Today AndAlso r("靠挂费日期") >= Date.Today Then
forms("日新车队").Controls("TextBox23").Text = "漏保"
Else If r("二保日期") < Date.Today AndAlso r("营运证年审") < Date.Today AndAlso r("靠挂费日期") >= Date.Today Then
forms("日新车队").Controls("TextBox23").Text = "漏保|漏审"
Else
forms("日新车队").Controls("TextBox23").Text = "漏保|漏审|漏费"
End If
End If
-- 发布时间：2014/12/7 23:45:00
--
好像没有判断哪个文本显示吧,怎么不显示
-- 发布时间：2014/12/7 23:47:00
--
有显示,是我搞错了
-- 发布时间：2014/12/8 9:09:00
--
闪是正常的，因为你在TextChanged设置了筛选代码，筛选肯定会闪的。
要不你就不要写TextChanged代码，输入完毕以后，敲回车也能查询
-- 发布时间：2014/12/8 12:54:00
--
-- 发布时间：2014/12/8 13:14:00
--
去掉了,但是一按回车查找时还是那样,太慢了.怎么办啊