Dim wybh As WinForm.TextBox = e.Form.Controls("TextBox1").Text If DataTables("会员表").DataRows("会员编号") = wybh Then
Dim f As New Filler f.SourceTable = DataTables("会员表") f.SourceCols = "会员姓名,性别,年龄,联系电话” f.DataTable = DataTables("会员见面表") f.DataCols = "姓名,姓别,年龄,联系电话" f.Fill() '填充 End If