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