以下是引用don在2008-11-25 16:20:00的发言:
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
老大的代码总是简单实用,佩服。