主题：帮看看代码问题出在哪?

dim _Rs as list (of datarow) = nothing

Dim rs As List (of Row) = tbl.GetCheckedRows    

      If rs IsNot Nothing  Then
       For Each r As Row In rs
           If r IsNot Nothing Then
              _Rs.add(r.DataRow)
           End If
       Next
    End If

请问这代码问题出在哪？

以下是引用muhua在2013-1-17 14:55:00的发言：

Dim _Rs As New List(of DataRow)

 

 

 

下载信息  [文件大小：292.0 KB  下载次数：0]

点击浏览该文件:管理项目30.table

Muhua,谢谢！能做一个跨窗口调用的例子吗？

林总的例子可以，但用我上面的代码就不行了。可能原因是出在

Dim rs As List (of Row) = tbl.GetCheckedRows    

这一行的rs局部变量上。不能通过局部变量转换后赋值？

不过，问题已经解决了。谢谢两位！