- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 判断末级的代码问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178405)
-- 发布时间：2022/7/3 10:47:00
-- 判断末级的代码问题
老师：
下面这个判断末级的代码写进去为什么报错呢？
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
-- 发布时间：2022/7/3 20:53:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:末级判断.zip |
-- 发布时间：2022/7/3 22:33:00
-- 回复：（有点蓝）[upload=zip,末级判断.zip]viewFile....
加密狗已经超过有效期间，不能使用2022/5/4 0以后的版本了。
-- 发布时间：2022/7/3 22:56:00
--
可以联系客服续费升级