有一条代码：Dim dt1 As DataTable = DataTables("代码库")
Dim dt3 As DataTable = DataTables("专业门类")
For Each dr As DataRow In dt1.Select("")
Dim filter As String = "'" & dr("专业名称") & "' like 专业名称 + '%'"
Dim fdr = dt3.find(filter)
If fdr IsNot Nothing Then
dr("专业代码") = fdr("专业代码")
End If
Next
代码没问题
举例说明问题：在“专业门类”表中，即有“法学”代码为030301，又有“法学类”代码为0303，但，通过执行代码后，法学类的代码应该是“0303”，可最后的结果是“030301”。这个问题有没有办法解决（上述代码如何修改，可以解决此问题！）谢谢老师！！
加好友 
发短信
Post By：2021/12/1 15:38:00 [只看该作者]
