'筛选出入库明细
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存储过程,怎么都找不到,哪位研究过华海的狐友能给指点一下。
