Foxtable(狐表)用户栏目专家坐堂 → 华海的存储过程在哪里


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

主题:华海的存储过程在哪里

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


加好友 发短信
等级:幼狐 帖子:120 积分:1690 威望:0 精华:0 注册:2012/9/15 10:01:00
华海的存储过程在哪里  发帖心情 Post By:2013/4/9 9:04:00 [显示全部帖子]

'筛选出入库明细
Dim cmd As New SQLCommand
cmd.C
Dim dst1 As Table = Tables("窗口1_Table1")
Dim dst2 As Table = Tables("窗口1_Table2")
If dst1.count>0 Then
    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
Else
    cmd.CommandText = "execute CYMXA '1900-1-1',''"
End If
dst2.DataSource  = cmd.ExecuteReader()

For i As Integer=1 To dst2.count
    Dim dr As Row = dst2.Rows(i-1)
    dr("序号") = "" & i
Next
dst2.AutoSizeCols()

 

这是华海仓库中的一段代码,其中的CYMXA存储过程,怎么都找不到,哪位研究过华海的狐友能给指点一下。图片点击可在新窗口打开查看图片点击可在新窗口打开查看


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


加好友 发短信
等级:幼狐 帖子:120 积分:1690 威望:0 精华:0 注册:2012/9/15 10:01:00
  发帖心情 Post By:2013/4/10 8:56:00 [显示全部帖子]

找到了。谢谢

[此贴子已经被作者于2013-4-10 9:11:04编辑过]

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


加好友 发短信
等级:幼狐 帖子:120 积分:1690 威望:0 精华:0 注册:2012/9/15 10:01:00
  发帖心情 Post By:2013/4/10 9:11:00 [显示全部帖子]

以下是引用唐尸三摆手在2013-4-10 9:03:00的发言:
ACCESS的查询列表,建议楼上先由浅入深,循序渐进。

好的,谢谢您的提醒


 回到顶部