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

找到了。谢谢

好的，谢谢您的提醒