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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 语法解法

共有20410人关注过本帖树形打印复制链接主题：语法解法

wtfwsk05

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

加好友

发短信

等级：小狐帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00

Post By：2018/10/6 18:48:00 [显示全部帖子]

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=1441&replyID=&skin=1

wtfwsk05

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

加好友

发短信

等级：小狐帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00

Post By：2018/10/7 9:30:00 [显示全部帖子]

老师：请问下【华海仓库】表事件中所引用的 cmd.commandtext = "execute CKXPE '" & str & "'" 是在那里设置的

窗口1_Table1_CurrentChanged中所引用的如下代码是在那个地方设置的

Dim dr1 As Row = dst1.Current '获得选定行

Dim str As String = dr1("货品编码")

Dim cbox As WinForm.ComboBox = Forms("窗口1").Controls("ComboBox1")

Select Case cbox.text

Case "全部"

cmd.CommandText = "execute CYMXA '1900-1-1','" & str & "'"

Case "近6笔"

cmd.CommandText = "execute CYMXB '" & str & "'"

Case "近一月"

cmd.CommandText = "execute CYMXA '" & today.AddMonths(-1) & "','" & str & "'"

Case "近三月"

cmd.CommandText = "execute CYMXA '" & today.AddMonths(-3) & "','" & str & "'"

Case "近一年"

cmd.CommandText = "execute CYMXA '" & today.AddYears(-1) & "','" & str & "'"

Case "近三年"

cmd.CommandText = "execute CYMXA '" & today.AddYears(-3) & "','" & str & "'"

End Select

wtfwsk05

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

加好友

发短信

等级：小狐帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00

Post By：2018/10/7 11:05:00 [显示全部帖子]

请问下老师，在那个地方可以找到数据库存储过程的定义

wtfwsk05

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

加好友

发短信

等级：小狐帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00

Post By：2018/10/7 17:19:00 [显示全部帖子]

我主要想知道存储过程是在那个事件中创建的

wtfwsk05

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

加好友

发短信

等级：小狐帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00

Post By：2018/10/7 17:28:00 [显示全部帖子]

老师：请问下，如何对窗口1中的表1筛选出最近10条记录，其代码应怎么写

wtfwsk05

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

加好友

发短信

等级：小狐帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00

Post By：2018/10/7 20:14:00 [显示全部帖子]

此主题相关图片如下：数据筛选.png

功能：点击了目录树节点，在窗口表中列出相关数据（我已知道怎么实现了）后，在在组合框中选中“近3笔”用于实现对窗口表中列出的数据进行筛选（这部份不知道怎么实现）

组合框combobox2的TextChanged：

Dim dst As Table = Tables("窗口1_Table3")

Select Case e.sender.text

Case "全部"

dst.Filter = ""

Case "近10笔"

Dim dt As DataTable = Tables("窗口1_table1").DataTable

dt.LoadFilter = ""

dt.LoadTop= 3

dt.LoadOrder = "[_Identify] desc"

dt.Load

''只能加载最近10条记录,无法筛选最近10条记录

'Dim dt As DataTable = Tables("窗口1_table1").DataTable

'dt.LoadFilter = "" '"出入库 = '入库'"

'dt.LoadTop= 3 '设置执行load(加载)方法时,要加载的行数

'dt.LoadOrder = "日期 desc" '设置执行load(加载)方法时,加载数据的排序方式

'dt.Load '重新加载

Case "近一月"

dst.Filter = "[日期] >= '" & today.AddMonths(-1) & "'"

Case "近三月"

dst.Filter = "[日期] >= '" & today.AddMonths(-3) & "'"

Case "近一年"

dst.Filter = "[日期] >= '" & today.AddYears(-1) & "'"

Case "近三年"

dst.Filter = "[日期] >= '" & today.AddYears(-3) & "'"

End Select

请问下上述代码有什么问题，为什么不法实现上述偌

wtfwsk05

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

加好友

发短信

等级：小狐帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00

Post By：2018/10/7 20:33:00 [显示全部帖子]

请问下上述代码有什么问题，为什么不法实现上述功能，应怎么修改代码

wtfwsk05

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

加好友

发短信

等级：小狐帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00

Post By：2018/10/8 11:41:00 [显示全部帖子]

msgbox(123)
        Dim filter As String = ""
        dst.filter = ""
        dst.Sort = "日期 desc"
        For i As Integer = 0 To dst.Rows.count-1
            filter = dst.Rows(i)("_Identify") & ","
            If i >= 2 Then
                Exit For
            End If
        Next
        dst.filter = "_Identify in (" & filter.trim(",") & ")"

请问下应怎样理解

wtfwsk05

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

加好友

发短信

等级：小狐帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00

Post By：2018/10/17 13:09:00 [显示全部帖子]

请问下，如何用代码创建视图

wtfwsk05

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

加好友

发短信

等级：小狐帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00

Post By：2018/10/17 13:47:00 [显示全部帖子]

如我要根据订单表创建订单表的视图，应怎么写代码

下一主题 >> << 上一主题

总数 182 1.. 上一页 2 3 4 5 6 7 8 9 10 11 下一页 ..19

主题：语法解法