タイトル : データセットにフィルタをかけてカウント数を返す 投稿日 : 2007/04/03(Tue) 09:00 投稿者 : かな
データセットに格納したデータにフィルタをかけてカウント数をとろうとしています。 フィルタの条件は、関数に引数を渡してとうろうとしているのですが、フィルタをかけるところでエラーになってしまいます。 なにかいい方法がないでしょうか? Private Function fncCntGYo(ByVal astrCd, ByVal astrECd, ByVal astrDate) As String Dim rtnVal As String = "" Dim foundRows() As DataRow foundRows = ds.受注仮予定.Select("得意先コード = '" & astrCd& "' and 枝番= '" & astrECd& "' and 出荷予定日 = '" & astrDate& "'") rtnVal = CStr(foundRows.Length) Return rtnVal End Function |