|
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 &"'")
For Each DR As DataRow In drs
Dim i As Integer=0
i=Val(dr("编码").SubString(2,1))
If lev<=i Then
lev=i
Else
Continue For
End If
Next
Dim ary As String() = e.NewValue.split("\")
For Each a As String In ary
Dim fdr As DataRow = DataTables("表B").Find("姓名 = '" & a & "'")
If fdr IsNot Nothing Then'这块怎么写
fdr("级别")=lev
End If
Next
End Select
|
加好友 
发短信
Post By：2015/6/19 16:03:00 [显示全部帖子]
