Dim fdr As DataRow = DataTables("fa piao管理").Find("fa piao号码 = '" & e.Form.Controls("文本框").Text & "'")
msgbox(fdr("fa piao名称"))