改进了一下代码,似乎好多了。但仍然存在不能连续输入和即时反映录入情况的问题,一行必须一次性录入结束,不太符合录入习惯。
Select Case e.DataCol.Name
Case "题名"
If e.NewValue > "" Then
Dim pts() As String = e.NewValue.Split(":")
Dim vas(pts.Length - 1) As String
For i As Integer = 0 To pts.Length - 1
Dim dr As DataRow = DataTables("简录代码表").Find("简录码 = '" & pts(i) & "'")
If dr IsNot Nothing Then
vas(i) = dr("正确文本")
Else
vas(i) = pts(i)
’ msgbox(pts(i))
End If
Next
e.NewValue = String.Join(":",vas)
End If
If e.NewValue IsNot Nothing Then
e.NewValue = e.NewValue.replace(":","")
End If
End Select
[此贴子已经被作者于2019/10/5 16:28:45编辑过]