VB.NET问题 大家帮帮忙！！！

我要实现这么一个函数：一个String的变量与数据集DataSet中的第一列中所有元素进行比较，如果存在相同的则返回1，不存在相同的值则返回0
下面是这个函数的名称：
    Public Function CheckSame(ByRef m_DataSet As DataSet(), ByVal m_ID As String) As Boolean
（帮忙写中间这段代码）
    End Function

*****************************
主要是因为我刚刚初学，不知道Dataset中的方法使用，查了一些资料也不能解决~所以请大家帮帮忙！！

答案：string str="";
for(int i=0;i<dataset.Tables["table_name"].Rows.count;i++
{
  if(str==dataset.Tables["table_name"].Rows[i][0].tostring())
   {
*******************
}
}

其他：本来应该是DataTable不过我把你重载了一次，传DataSet或DataTable都可以，自己看啦，另外你这个方法应该是返回ture或false而你却说要返回1或0不过你可以看著改返回什麼你后面就应该as什麼嘛。总之做法是遍列整个表的行再遍历每一行的列碰到=就把之前的false或0改成true或1然后退出循环，这样做节省资源，不过跳出循环也是可以的只是浪费资源罢了:)
'---------------方法一用DataTable----------------------------

   Public Function CheckSame(ByRef m_DataSet As Data.DataTable, ByVal m_ID As String) As Boolean
        Dim x As Boolean
        x = False
        Dim i As Integer
        For i = 0 To m_DataSet.Rows.Count
            Dim j As Integer
            j = 0
            For j = 0 To m_DataSet.Columns.Count
                If m_DataSet.Rows(i).Item(j).ToString() = m_ID Then
                    x = True
                    Exit For
                End If
                j = j + 1
            Next
            i = i + 1

        Next
        CheckSame = x
    End Function

 '---------------方法二用DataSet----------------------------
    Public Function CheckSame(ByRef m_DataSet As Data.DataSet, ByVal m_ID As String) As Boolean
        Dim x As Boolean
        x = False
        Dim i As Integer
        For i = 0 To m_DataSet.Tables(0).Rows.Count
            Dim j As Integer
            j = 0
            For j = 0 To m_DataSet.Tables(0).Columns.Count
                If m_DataSet.Tables(0).Rows(i).Item(j).ToString() = m_ID Then
                    x = True
                    Exit For
                End If
                j = j + 1
            Next
            i = i + 1
        Next
        CheckSame = x
    End Function

写愦了c#突然用VB还真是觉得不顺手，呵呵 达人原来是VB的程序员，写了这些代码，很熟悉
Public Function CheckSame(ByRef m_DataSet As Data.DataSet, ByVal m_ID As String) As Boolean 
Dim x As Integer

Dim i As Integer 
For i = 0 To m_DataSet.Tables(0).Rows.Count

If m_DataSet.Tables(0).Rows(i).Item(0).ToString() = m_ID Then 
x = 1
Exit For 
else
x =0
End If 

Next 
End Function 

上一个：怎么没有关于VB.NET的问题?不属于DOTNET吗?
下一个：关于vb.net 中datagridview问题