加黑代码r.Index-1，如果找不到，就再找上一行r.Index-2。

如图，就是[诉讼参加人]的第四行单元格列表，以该列第三行或第二行为参照。

这个选择判断怎样写？

谢谢！

Dim r As Row = Tables("诉讼参加人_table1").Current
If e.IsFocusCell Then \'如果是焦点所在单元格
    If e.Col.Name = "诉讼参加人"  AndAlso r("诉讼地位").Contains("代理人") Then   \'如果正在编辑的是诉讼参加人列
        \'从委托代理人表提取姓名作为列表项目
        e.Col.Combolist = DataTables("委托代理人").GetComboListString("姓名", "[工作单位] = \'" & Tables("诉讼参加人_table1").Rows(r.Index-1)("诉讼参加人") & "\'")  
    End If
End If

e.Col.Combolist = DataTables("委托代理人").GetComboListString("姓名", "[工作单位] = \'" & Tables("诉讼参加人_table1").Rows(r.Index-1)("诉讼参加人") & "\' or [工作单位] = \'" & Tables("诉讼参加人_table1").Rows(r.Index-2)("诉讼参加人") & "\'")