代码：
Dim r As Row= e.Row
If e.Col.name="手术名称" Then
If r("疾病诊断").contains("腭咽闭合不全") Then
e.Cancel=True
End If
End If
If e.Col.name = "手术方式" Then
Dim t As String= r("手术名称")
If t Is Nothing Then
If r("疾病诊断").contains("腭咽闭合不全") Then
e.Col.ComboList="腭再成形术|咽后壁瓣|腭咽肌瓣|咽后嵴增高术|Furlow法|其它"
Else
e.Col.ComboList= Nothing
End If
ElseIf t="唇裂修补术" or t=“唇裂再修补术” Then
If r("手术部位")="双侧" Then
e.Col.ComboList="前唇原长法|前唇加长法|改良原长法(重医)|其它"
ElseIf r("手术部位")="左侧" or r("手术部位")="右侧" Then
e.Col.ComboList="Millard I式唇修复|Milladr II式唇修复|Millard III式唇修复|Tennison法|Moler法|华西改良法|其它"
Else
e.Col.ComboList=Nothing
End If
ElseIf t.Contains("腭裂修补术") Or t.contains("腭裂再修补术") Then
e.Col.ComboList="兰式法|兰式+腭咽提肌重建术|两瓣法|两瓣法+腭帆提肌重建术|Push-back法|Push-back法+腭帆提肌重建术|Furlow法|Sommerlad法|其它"
Else
e.Col.ComboList=Nothing
End If
End If
If e.Col.name="术后并发症" Then
Dim t As String=r("手术名称")
If t Is Nothing Then
e.Col.ComboList=Nothing
ElseIf t="唇裂修补术" Then
e.Col.ComboList="出血|感染|部分裂开|全部裂开|其它"
ElseIf t="腭裂修补术" Then
e.Col.ComboList="出血|感染|粘膜瓣坏死|腭瘘|复裂|其它"
Else
End If
End If
手术名称选“唇裂修补术”时下拉框不能用。是不能使用or吗？
加好友 
发短信
Post By：2015/12/27 9:38:00 [只看该作者]
此主题相关图片如下：360反馈意见截图162303238111767.png