-- 字段前段包含相同内容,如何调用字段代码
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编辑过]