DataColChanged事件:
if e.Datacol.name = "疾病" Then Dim Da As DataTable = DataTables("疾病") Dim dr As DataRow Dim T1,T2 As String T1=e.DataRow("疾病") T2="[输入码] = '" & T1 & "'" IF "abcdefghijklmnopqrstuvwxyz".indexof(T1.Substring(0,1).ToLower())>-1 Then dr = Da.Find(T2) If dr IsNot Nothing Then e.DataRow("疾病") = dr("疾病名称") Else MessageBox.Show("『输入码』有誤!請檢查.", "提示") End If End If End If
|