نوشتن دستور Select برای یک فیلد از دیتا ست

[babak2000]

با سلام به دوستان

برای یک فیلدی که داخل دیتا ست Ds ریخته شده چطور میتونم دستور Select Case

بنویسم

اینجوری نوشتم ولی خطا :اشتباه: میده :




Select Case ds.Tables("Repopt_Hazine").Columns("CodeSarfasl")
Case "0"



مثلا می خواهم اگه فیلد کد سرفصل (CodeSarfasl) داخل جدول برابر یک بود یه کاری خاصی بکنه و ...

ممنون

[mostafaaa]

دوست من سوالت رو کامل کن و بگو میخای دقیقا چیکار کنی . تا بتونم کمکت کنم.

[babak2000]

ببینید ما یک جدول داریم بنام Repopt_Hazine و داخل این جدول یه فیلدی بنام CodeSarfasl

حالا میخواهم برای مقادیر داخل ستون CodeSarfasl (کدسرفصل) دستور Select بنویسم که به ازای

مقدارهای مختلف کدسرفصل یه عمل خاصی انجام شود

مثلا اگه کد سرفصل = 1 بود یه کار خاص و اگه کدسرفصل =2 بود یه دستور دیگه و ....

از خط اول کد ایراد نمیگیره :


Select Case ds.Tables("Repopt_Hazine").Columns("CodeSarfasl")

ولی خط دوم برای دریافت شرط Case ایراد میگیره مثلا Case 1

, ....

[mostafaaa]

ببین دوست من شما برای اینکار باید شماره سطر رو هم داشته باشی یا اگه میخوای این کار رو برای همه سطر ها انجام بدی باید کدت رو بندازی توی یه حلقه.
در هر صورت برای دسترسی به یه Cell توی DS به این شکل عمل می کنیم.

Dim Value As Integer = DS.Tables("TableName").Rows(0).Item("ColumnName")
Select Case Value
'Your code here
End Select

[babak2000]

تشکر

فقط برای نوشتن حلقه مشکل دارم . چطوری میتونم تعداد کل سطرهای Ds را بدست بیارم ؟؟

[mostafaaa]

Dim Count As Integer = DataSet.Tables("TableName").Rows.Count