主题：自动显示内容

DataColChanged事件中

If e.DataCol.Name = "中医诊断" Then 

    If e.NewValue Is Nothing Then 

        e.DataRow("哈萨克医诊断") = Nothing 

    Else

        Dim dr As DataRow

        dr = DataTables("病名表").Find("[中文名称] = '" & e.NewValue & "'")

        If dr IsNot Nothing Then 

            e.DataRow("哈萨克医诊断") = dr("哈萨克文名称") 

        End If

    End If

End If