主题：[求助]列表项目

 

加黑代码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

此主题相关图片如下：image 1.jpg

 

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