Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求代码


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

主题：求代码
帅哥哟，离线，有人找我吗？
xjc620
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		  发帖心情 Post By：2014/12/8 19:34:00 [显示全部帖子]

是放到这了啊,而且报错
图片点击可在新窗口打开查看此主题相关图片如下：搜狗截图14年12月08日1934_2.png
图片点击可在新窗口打开查看
日新车队表里不存在""的列
 回到顶部
帅哥哟，离线，有人找我吗？
xjc620
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		  发帖心情 Post By：2014/12/8 19:35: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
 回到顶部
帅哥哟，离线，有人找我吗？
xjc620
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		  发帖心情 Post By：2014/12/8 19:44:00 [显示全部帖子]

是写在了keydown事件,原来是搜索按回车键报错,用鼠标点控件却没事.
图片点击可在新窗口打开查看此主题相关图片如下：搜狗截图14年12月08日1934_2.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
xjc620
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		  发帖心情 Post By：2014/12/8 19:50:00 [显示全部帖子]

搜索时按回车报错,用鼠标点查找时却不报错密码158998而且还是会一闪一闪的
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:日新车队数据库.rar

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:日新车队管理系统.foxdb

[此贴子已经被作者于2014-12-8 19:50:53编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
xjc620
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		  发帖心情 Post By：2014/12/8 20:15:00 [显示全部帖子]

效果还是和以前一样啊.还是一闪一闪的,慢啊,实现是太慢了
[此贴子已经被作者于2014-12-8 20:15:36编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
xjc620
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		  发帖心情 Post By：2014/12/8 20:26:00 [显示全部帖子]

我的怎么还是报错啊,刚才我的哪里错了啊,代码都检查了啊,和你的应该都一样了啊,怎么还报错啊
[此贴子已经被作者于2014-12-8 20:31:59编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
xjc620
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		  发帖心情 Post By：2014/12/8 21:00:00 [显示全部帖子]

清除查找和筛选那个按钮,清除时也是一闪一闪,怎么像查找那样不闪了,现在好像快多了比以前

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


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		  发帖心情 Post By：2014/12/8 21:07:00 [显示全部帖子]

想问一下代码是什么意思,怎么解决的,帮助里有吗

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


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		  发帖心情 Post By：2014/12/8 21:54:00 [显示全部帖子]

在CurrentTableChanged事件设置了这个代码?切换表时同步,记录行..但是现在有一个问题是,因为第一个表控件太多现在切换其它表没问题,就是切换第一个表时明显示加载慢,刚才看了这两个帮助文可还是不知道把代码加在哪,还想保留以前那种同步和记录行不闪,
lockbasemainform
CurrentTable.StopRedraw
CurrentTable.Current.Save
Dim identify As Integer = CurrentTable.Current("_Identify")
Dim tidx As Integer = CurrentTable.TopVisibleRow
CurrentTable.DataTable.Load
Dim idx As Integer = CurrentTable.FindRow("_Identify = " & identify)
If idx > -1 Then
    CurrentTable.Position = idx
    CurrentTable.TopVisibleRow = tidx
Else
    CurrentTable.Position = CurrentTable.Rows.Count - 1
End If
CurrentTable.ResumeRedraw
unlockbasemainform
 回到顶部
帅哥哟，离线，有人找我吗？
xjc620
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		  发帖心情 Post By：2014/12/8 22:07:00 [显示全部帖子]

现在好像不是因为刷新慢,而是因为控件太多的问题,是不是能切换完先会制表再同步,那样会不会显示的能快点

 回到顶部
总数 27 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 6 次数据查询