Foxtable(狐表)用户栏目专家坐堂 → 数据转换问题?


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

主题:数据转换问题?

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178530 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/5/30 8:54:00 [显示全部帖子]

For Each dr As DataRow In DataTables("化验检查").DataRows
    Dim drr As DataRow = DataTables("生化").Find("住院号='" & dr("住院号") & "' and 姓名='" & dr("姓名") & "' and 性别='" & dr("性别") & "' and 年龄='" & dr("年龄") & "' and 检查时间=#" & dr("检验时间") & "#")
    If drr Is Nothing Then
           drr=DataTables("生化").AddNew
           drr("住院号")=dr("住院号")
           drr("姓名")=dr("姓名")
           drr("性别")=dr("性别")
           drr("年龄")=dr("年龄")
           drr("检查时间")=dr("检验时间")
    Else
          drr(dr("检验项目"))=dr("检验结果")
    End If
Next


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178530 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/5/30 14:37:00 [显示全部帖子]

动态增加列会需要重启项目,增加临时列并不会保存数据.
所以最好自己设计好表结构.


至于执行2次才能完全,这样改一下

For Each dr As DataRow In DataTables("化验检查").DataRows
    Dim drr As DataRow = DataTables("生化").Find("住院号='" & dr("住院号") & "' and 姓名='" & dr("姓名") & "' and 性别='" & dr("性别") & "' and 年龄='" & dr("年龄") & "' and 检查时间=#" & dr("检验时间") & "#")
    If drr Is Nothing Then
           drr=DataTables("生化").AddNew
           drr("住院号")=dr("住院号")
           drr("姓名")=dr("姓名")
           drr("性别")=dr("性别")
           drr("年龄")=dr("年龄")
           drr("检查时间")=dr("检验时间")
           drr(dr("检验项目"))=dr("检验结果")
    Else
          drr(dr("检验项目"))=dr("检验结果")
    End If
Next

 回到顶部