Dim wybh As string = e.Form.Controls("TextBox1").Text If Tables("会员表").Current("会员编号") = wybh Then Dim f As New Filler f.SourceTable = DataTables("会员表") f.SourceCols = "会员姓名,性别,年龄,联系电话” f.DataTable = DataTables("会员见面表") f.DataCols = "姓名,性别,年龄,联系电话" f.Fill() '填充 End If
加好友 
发短信
Post By：2013/5/1 23:32:00 [显示全部帖子]
