Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]这段代码执行速度很慢，请老师们指点


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

主题：[求助]这段代码执行速度很慢，请老师们指点
帅哥哟，离线，有人找我吗？
zyqzyy
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：822 积分：5879 威望：0 精华：0 注册：2013/7/29 12:00:00 		  发帖心情 Post By：2014/1/5 11:28:00 [只看该作者]

请楼上指点 每一行的代码都不一样，如何替换？

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


加好友 发短信
等级：狐神 帖子：4742 积分：34508 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2014/1/5 11:37:00 [只看该作者]

DataColChanged事件：


If e.DataCol.Name = "疾病编码"
    Dim dr As DataRow = e.DataRow
    Dim s As String = dr("疾病编码").SubString(0,1)
    Dim i As Integer = dr("疾病编码").SubString(1,2)
    If s = "A" OrElse s ="B" OrElse (s = "C" AndAlso i < 36)
        dr("疾病分类") = "传染性疾病"
    ElseIf (s = "C" AndAlso i >= 36) OrElse (s = "D" AndAlso i < 49)
        dr("疾病分类") = "肿瘤"
    End If
End If

其他如法炮制……
 回到顶部
帅哥哟，离线，有人找我吗？
zyqzyy
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：822 积分：5879 威望：0 精华：0 注册：2013/7/29 12:00:00 		  发帖心情 Post By：2014/1/5 11:39:00 [只看该作者]

谢谢指点，明白了！

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


加好友 发短信
等级：五尾狐 帖子：1022 积分：7598 威望：0 精华：0 注册：2010/4/12 12:23:00 		  发帖心情 Post By：2014/1/5 11:44:00 [只看该作者]

我建议您不要把疾病种类修改，因为如“肿瘤”，医生不止想知道是肿瘤，还想知道是什么肿瘤，后面可能还需要。建议在后面新增一列“疾病分类”。在excel中搞定。您使用的六位码，还是其他码？我使用的是六位码
[此贴子已经被作者于2014-1-5 11:44:28编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zyqzyy
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：822 积分：5879 威望：0 精华：0 注册：2013/7/29 12:00:00 		  发帖心情 Post By：2014/1/6 21:19:00 [只看该作者]

我是想进行分类统计分析用。

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


加好友 发短信
等级：二尾狐 帖子：508 积分：3542 威望：0 精华：3 注册：2012/11/13 15:49:00 		  发帖心情 Post By：2014/1/6 23:43:00 [只看该作者]

这个要看你的目的，如果是一次性使用的话，就不必要了，如果要在其他表中查询到这行，再根据这个行的编码，填写相应的种类的话，是不同的实现方法。

 

 

一次性使用的话，直接在当前表，打开命令窗口输入：

 

currenttable.datatable.replacefor("列名","疾病种类","编码列名 >='C06' and 编码列名 《='D0X'")

 

执行一次就可以了

 

[此贴子已经被作者于2014-1-6 23:47:06编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zyqzyy
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：822 积分：5879 威望：0 精华：0 注册：2013/7/29 12:00:00 		  发帖心情 Post By：2014/3/8 16:53:00 [只看该作者]

楼上的思路很好 ！感谢。

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