老师， 希望您给指导一下，在表A不增加列的情况下如何实现:
Dim LEV As Integer=0
Dim DRS As List (OF DataRow)
Dim r As DataRow
Select e.DataCol.Name
Case "人员"
DRS=e.DataTable.Select("人员 Like '%\"& e.NewValue &"'or 人员 Like '"& e.NewValue &"\%' or 人员 Like '%\"& e.NewValue &"\%' or 人员 ='"& e.NewValue &"'")
If drs IsNot Nothing Then
For Each DR As DataRow In drs
Dim i As Integer=0
i=Val(dr("编码").SubString(2,1))
If lev<=i Then
lev=i
MessageBox.Show(lev)
If DataTables("表B").Find("姓名 Like '%\"& e.NewValue &"'or 姓名 Like '"& e.NewValue &"\%' or 姓名 Like '%\"& e.NewValue &"\%' or 姓名 ='"& e.NewValue &"'") IsNot Nothing Then'这块怎么写
r("级别")=lev' 希望表B能计算级别列
End If
Else
Continue For
End If
Next
End If
End Select
加好友 
发短信
Post By：2015/6/19 15:24:00 [只看该作者]
