我的表是一个体检统计表，给体检者做完检查后填入各项检查的结果，共有4组：其中“高压、低压”是一组（就是血压），“空腹血糖”自己一组，“红细胞，白细胞，血红蛋白，血小板”是一组（就是血液分析），“谷丙，谷草，总胆固醇，甘油三脂”是一组（就是肝功能）。有异常的话，就填入异常的名称和值，每一组算一项，正常的组不填，不正常的组先填（体检有异常1），再填（体检有异常2），再填（体检有异常3），再填（体检有异常4）。也就是要求有一组异常的时候要填入（体检体检有异常1），有二组异常的时候要填入（体检体检有异常1）和（体检体检有异常2），有三组异常的时候要填入（体检体检有异常1）、（体检体检有异常2）和（体检体检有异常3），有四组异常的时候都填。样式如项目文件夹里的（应该是这样的格式）excel表的样式。请教专家代码该怎样写？费费心，我先谢谢了。
判定异常标准如下：
If e.DataRow("高压") >= 140 OrElse e.DataRow("低压") >= 90 Then
e.DataRow("体检有异常1") = "血压异常:" & e.DataRow("高压") & "/" & e.DataRow("低压") & "mmHg"
End If
If e.DataRow("空腹血糖") <= 3.60 OrElse e.DataRow("空腹血糖") >= 7.00 Then
e.DataRow("体检有异常2") = "血糖异常:" & e.DataRow("空腹血糖") & "mmol/L"
End If
If e.DataRow("红细胞") <= 3.50 OrElse e.DataRow("红细胞") >= 5.50 OrElse e.DataRow("白细胞") <= 4.00 OrElse e.DataRow("白细胞") >= 10.00 OrElse e.DataRow("血红蛋白") <= 110.00 OrElse e.DataRow("血红蛋白") >= 150.00 OrElse e.DataRow("血小板") <= 100 OrElse e.DataRow("血小板") >= 300 Then
e.DataRow("体检有异常3") = "血液分析异常:" & （所有不正常项的值？）
End If
If e.DataRow("谷丙") >= 31 OrElse e.DataRow("谷草") >= 37 OrElse e.DataRow("总胆固醇") <= 3.10 OrElse e.DataRow("总胆固醇") >= 5.60 OrElse e.DataRow("甘油三脂") >= 2.30 Then
e.DataRow("体检有异常4") = "肝功能分析异常:" & （所有不正常项的值？）
End If
加好友 
发短信
Post By：2015/11/13 18:58:00 [只看该作者]
