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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 帮忙查看一下代码，问题出在哪里

共有6739人关注过本帖树形打印复制链接主题：帮忙查看一下代码，问题出在哪里

dycjj

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

加好友

发短信

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

帮忙查看一下代码，问题出在哪里 发帖心情

Post By：2013/5/2 22:14:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：1.jpg

我想在会员编号中输入“会员编号”，然后点选定后，姓名、姓别、年龄、联系电话能够自动从会员表填充进来，以下是我写的，请高手们看看，问题出在哪里
Dim txt As String = e.Form.Controls("TextBox1").Value
If txt = "" Then
    Return
End If
Dim flt As String
If IsNumeric(txt) Then
    If txt.Length <> 5 Then
        messagebox.show("请输入正确的五位数编号")
        Return
    Else
        Dim f As New Filler
        f.SourceTable = DataTables("会员表")
        f.SourceCols = "会员姓名,性别,年龄,联系电话"
        f.DataTable = DataTables("会员见面表")
        f.DataCols = "姓名,性别,年龄,联系电话"
        If flt = "会员编号 = '" & txt & "'" Then
            f.Fill()
        End If
    End If
End If