下面代码运行时，偶尔报错，有时又正常的，请问啥原因？

苍风霁月

                Dim str,strsql As String
                Proj.DatabaseForUserDB=Proj.SysDataFactory("UserDB")
                strsql="select * from 品名表"
                Dim dt1 As DataTableHelp=Proj.DatabaseForUserDB.ExecuteDataTableHelp(strsql)
                Dim tbl As SmGrid=Proj.CurrentSmGrid                '遍历表中所有行               
                For Each dr As RowData In tbl.View.ViewRows
                        str=dr("品名")
                        For Each dr1 As RowData In dt1.DataRows
                                str=str.Replace(dr1("非关键字"),"")
                        Next
                        dr("关键字")=str
                Next               
                messagebox.show("完成关键字处理！")

admin

问题就出在你引用表的方式错了。

Dim tbl As SmGrid=Proj.CurrentSmGrid                '遍历表中所有行   

可以看一下帮助文档中如何引用表：http://www.sanmugrid.com/help/in ... %94%A8%E8%A1%A8.htm
在表菜单中引用表Dim tbl As SmGrid=Proj.CurrentClickedGridMenu.BaseGrid

帮助文档中很多引用Proj.CurrentSmGrid只是为了方便表示当前是引用的一个表，你们得看在不同场景下使用合适的方式获得稳定的表对象。

苍风霁月

终于看懂了，没的指定表时，就没当前表。
感谢，解决问题