代码如下：
Dim dtb As New DataTableBuilder("table3")
dtb.AddDef("项目",Gettype(String),30)
dtb.AddDef("结果",Gettype(String),30)
dtb.AddDef("正常值",Gettype(String),30 )
dtb.AddDef("临床意义",Gettype(String),800)
dtb.Build()
For Each dc As DataCol In DataTables(args(0)).DataCols
If dc.name<>"PatientsID" AndAlso dc.name<>"检查日期" Then
Dim dr As DataRow= DataTables("table3").AddNew()
dr("项目")=dc.name
For Each dr1 As DataRow In DataTables("实验室检查维护").DataRows
If dr1("检验项目")=dc.name Then
dr("正常值")=dr1("正常值")
dr("临床意义")=dr1("临床意义")
End If
Next
For Each dr2 As DataRow In DataTables("临床资料登记_table1").dataRows
If dr2("检验项目")=dc.name Then
dr("结果")=dr2(dc.name)
End If
Next
End If
Next
标红的这句有问题。
[此贴子已经被作者于2016/10/17 17:42:18编辑过]
加好友 
发短信
Post By：2016/10/17 17:42:00 [只看该作者]
