[求助]ylm老师请教您一下... - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]ylm老师请教您一下...

共有21303人关注过本帖树形打印复制链接主题：[求助]ylm老师请教您一下...

菜鸟foxtable

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

加好友

发短信

菜鸟中的老鸟
等级：七尾狐帖子：1486 积分：10064 威望：0 精华：9 注册：2008/11/14 8:54:00

[求助]ylm老师请教您一下... 发帖心情

Post By：2008/12/15 22:57:00 [显示全部帖子]

您的作品报价系统中的窗口5查询按钮里有一段这样的代码
能否抽空给俺们这些菜鸟讲解一下标记了红色的符号的使用意义及此行条件代码的意思吗?

Dim F As String =e.Form.Controls("列名").Value
Dim z As String =e.Form.Controls("关键字").Value
Dim s As Single
Dim d As Date
Dim Filter As String
If z="" OrElse f= "" Then
     MessageBox.Show("列名或关键字不能为空.", "提示", MessageBoxButtons.ok, MessageBoxIcon.Information)
ElseIf Tables("产品明细").Cols( f ).IsNumeric Then   '如果筛选列中数值型
    Single.TryParse(z,s) '将变量转换成数值型
       Filter = F & "= " & s
    Else
       Filter = F & " Like '*" & z & "*'"
     End If
If Filter > "" Then
    Tables("产品明细").Filter = Filter
End If

[此贴子已经被作者于2008-12-15 22:59:07编辑过]