Dim fdr As DataRow = DataTables("用户").find("用户名 = '" & yh_name & "'")
If fdr IsNot Nothing Then
msgbox(fdr("性别"))
End If