Foxtable(狐表)用户栏目专家坐堂 → [求助]表格中赋值问题


  共有2000人关注过本帖平板打印复制链接

主题:[求助]表格中赋值问题

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107813 积分:548416 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/11/5 19:57:00 [只看该作者]

DataTables("手术编码库").StopRedraw
DataTables("手术编码库").SQLReplaceFor("手术亚类","[手术名称]","len(ICD9M编码) = 4",True)
DataTables("手术编码库").Load

For Each dr As DataRow In DataTables("手术编码库").Select("len(ICD9M编码) = 4")
    DataTables("手术编码库").ReplaceFor("手术亚类",dr("手术亚类"),"ICD9M编码 like '" & dr("ICD9M编码") & "%'")
Next

DataTables("手术编码库").ResumeRedraw

 回到顶部