e.Form.Controls("Label1").Text = "正在从代码库中导入代码,请稍后..."
Application.DoEvents()
Dim timestart,timeend As Date
timestart=Date.now
Dim dt1 As DataTable = DataTables("数据库")
Dim dt2 As DataTable = DataTables("代码库")
For Each dr As DataRow In dt1.Select("")
Dim filter As String = "院校名称 = '" & dr("院校名称") & "'"
Dim fdr = dt2.find(filter)
If fdr IsNot Nothing Then
dr("院校代码") = fdr("院校代码")
End If
Next
For Each dr As DataRow In dt1.Select("")
Dim filter As String = "专业名称 = '" & dr("专业名称") & "'"
Dim fdr = dt2.find(filter)
If fdr IsNot Nothing Then
dr("专业代码") = fdr("专业代码")
End If
Next
e.Form.Controls("Label1").Text = "院校代码及专业代码导入完毕!"
timeend=Date.now
e.Form.Controls("Label1").text="第一步操作完毕,进行第二步!耗时" & (timeend-timestart).TotalSeconds & "秒"
Messagebox.Show("从代码库中调入院校代码及专业代码完毕,请继续!")
以院校名称和专业名称为条件，调用代码库中的对应代码，一个字不差时，可以完全调用过去，但数据库中的院校名称（专业名称）与代码库中的院校名称（专业名称）一般情况下是字段前段相同，后面有的有后缀，这时，就不能调用了。能不能实现：数据库中的院校名称（专业名称）与代码库中的院校名称（专业名称）完全相同的时候能调用，在字段前部分相同时，也能调用？这个条件公式如何写？谢谢老师！！
此主题相关图片如下：01.png
如：口腔医学这个专业名称，在代码库中的代码是100301，因为与代码库中的“口腔医学”名称完全相同，因此是可以调用过来的，但是，（例如）：“口腔医学[不招色觉异常(含色盲、色弱)考生]”这个名称与代码库中的不完全相同，只有前部分相同，如果也指100301这个代码调用过去？
[此贴子已经被作者于2021/9/17 8:45:19编辑过]
加好友 
发短信
Post By：2021/9/17 8:38:00 [只看该作者]
