Foxtable(狐表)用户栏目专家坐堂 → [求助]狐爸,代码有问题啊。


  共有7236人关注过本帖树形打印复制链接

主题:[求助]狐爸,代码有问题啊。

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251397 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/3/26 9:22:00 [显示全部帖子]

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 <> 6 Then
        messagebox.show("请输入正确的六位数编号")
        Return
    Else
        flt = "编号 = '" & txt & "'"
    End If
Else
    flt = "姓名 = '" & txt & "'"
End If
Dim i As Integer = Tables("表A").FindRow(flt,0,False)
If i < 0 Then
    messagebox.show("查无此人")
Else
    Tables("表A").Position = i
End If

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251397 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/3/26 9:33:00 [显示全部帖子]

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 <> 6 Then
        messagebox.show("请输入正确的六位数编号")
        Return
    Else
        flt = "编号 = '" & txt & "'"
    End If
Else
    flt = "姓名 = '" & txt & "'"
End If
If  DataTables("表A").Find(flt) Is Nothing Then
    messagebox.show("查无此人")
Else
    Tables("表A").filter = flt
End If

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251397 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/3/26 10:15:00 [显示全部帖子]

你依葫芦画瓢就行啊。我最后的几行代码是:

 

....

If  DataTables("表A").Find(flt) Is Nothing Then
    messagebox.show("查无此人")
Else
    Tables("表A").filter = flt
End If

 

你最后的几行是:

....

Tables("窗口1_表A").Filter = flt
Dim i As Integer = Tables("窗口1_表A").FindRow(flt,0,False)
If i < 0 Then
    messagebox.show("查无此人,请重新输入正确的姓名")
End If

 

你看出差别了吗?

 

 

呵呵,其实你这样是学不会foxtable的,更不可能学好,我建议您先踏踏实实按顺序看帮助文件,因为磨刀不误砍柴工,心急吃不得热豆腐。

 

看帮助一定要按顺序,头一两遍可以不求甚解,第三遍开始要将每个例子实际操作演练一遍,不明白的就上论坛求助。
三遍之后才开始做系统,先设计好表,想做什么功能,就做什么功能,遇到问题在帮助找答案,找不到的在论坛提问,不断遇到问题,不断解决问题,慢慢就熟悉了。
此外一定要先掌握《使用指南》,然后再看《开发指南》

 

 

[此贴子已经被作者于2013-3-26 10:17:17编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251397 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/3/26 10:25:00 [显示全部帖子]

做个简答的例子发上来说话吧,然后说明问题。

 回到顶部