老师：
下面这个判断末级的代码写进去为什么报错呢？
Dim e= args(0)
Dim dr As DataRow= args(1)
Dim dt As DataTable=DataTables("cheshi")
Dim gz As String= "22222222"
Dim drs As List (of DataRow)=dt.Select("id like '"& dr("id") &"%' And len(id) = '" & dr("id").length+2 & "' And id <> '"& dr("id") &"'","id") '按代码顺序添加
If drs.count > 0 Then
For Each dr1 As DataRow In drs
If dr1("id").Length=dr("id").Length+2 Then
Dim dr2 As DataRow=dr.DataTable.AddNew()
dr2("id")=dr1("id")
dr2("idname")=dr1("idname")
dr2("BOM级次")=dr("BOM级次")+1
Functions.Execute("Addnode",e,dr2)
End If
Next
Else
dr("末级")=True
End If
加好友 
发短信
Post By：2022/7/3 10:47:00 [显示全部帖子]
