主题：[求助]ComboList代码问题

分开写

Dim r As Row= e.Row

If e.Col.name = "手术方式" Then
    Dim t As String=r("手术名称")
    If t="唇裂修补术" Then
        Dim t1 As String=r("手术部位") & t
        If t1="双侧唇裂修补术"
            e.Col.ComboList="前唇原长法|前唇加长法|改良原长法(重医)|其它"
        Else
            e.Col.ComboList="Millard I式唇修复|Milladr II式唇修复|Millard III式唇修复|Tennison法|Moler法|华西改良法|其它"
        End If
    End If
End If

代码没有问题，肯定是你的 手术部位 不满足条件才不会有下拉