帮忙修改一下代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 帮忙修改一下代码

共有5008人关注过本帖树形打印复制链接主题：帮忙修改一下代码

dycjj

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：171 积分：1292 威望：0 精华：0 注册：2011/8/17 21:12:00

帮忙修改一下代码 发帖心情

Post By：2013/5/1 23:13:00 [显示全部帖子]

我想在窗口的一个文本框中输入会员编号，点击按纽后姓名、姓别、年龄等能够自动从会员表中填充到窗口的其它几个文本框中，我写的这个肯定不对，帮忙修改一下

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