问题描述
面代码是我做的一个小数据库引用程序。已经对表dtbDeluser进行了Fill填充我想问如何在表dtbDeluser中找到“工号=101”所在的行号ROW1(dimrow1)，工号是主键，具有唯一性。这样我可以直接在这个内存中的表中查找，而不需要再去连接数据库了。代码怎么写。谢谢了。直接写个代码然后msgboxROW1就行了PublicClassFrm档案主窗体PrivateadapterAsSqlClient.SqlDataAdapterPrivatedtbDeluserAsNewDataTablePrivateSubFrm档案主窗体_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadloadData()EndSubPrivateSubloadData()dtbDeluser.Clear()DimstrSQLAsString="select*from人事档案"'where部门='企管部'DimconStringAsString="DataSource=PC-20100812HSHESQLEXPRESS;InitialCatalog=人事档案数据库;IntegratedSecurity=True"adapter=NewSqlClient.SqlDataAdapter(strSQL,conString)adapter.Fill(dtbDeluser)DimiAsIntegerFori=0TodtbDeluser.Rows.Count-1ListView员工基本信息.Items.Add(dtbDeluser.Rows(i).Item("工号"))ListView员工基本信息.Items(i).SubItems.Add(dtbDeluser.Rows(i).Item("姓名").ToString)'加个.ToString是为了把空值转化为字符串，防止出错ListView员工基本信息.Items(i).SubItems.Add(dtbDeluser.Rows(i).Item("部门").ToString)ListView员工基本信息.Items(i).SubItems.Add(dtbDeluser.Rows(i).Item("科室").ToString)ListView员工基本信息.Items(i).SubItems.Add(dtbDeluser.Rows(i).Item("班组").ToString)ListView员工基本信息.Items(i).SubItems.Add(dtbDeluser.Rows(i).Item("职务").ToString)ListView员工基本信息.Items(i).SubItems.Add(dtbDeluser.Rows(i).Item("级别").ToString)NextiEndSubEndClass
解决方案
本帖最后由 webcivics 于 2012-03-07 22:49:34 编辑
解决方案二：
试试这个行不行：Fori=0TodtbDeluser.Rows.Count-1DimdrAsDataRow=dtbDeluser.newrowdr("行号")=i+1dtbDeluser.rows.add(dr)ListView员工基本信息.Items.Add(dtbDeluser.Rows(i).Item("行号"))ListView员工基本信息.Items.Add(dtbDeluser.Rows(i).Item("工号"))ListView员工基本信息.Items(i).SubItems.Add(dtbDeluser.Rows(i).Item("姓名").ToString)'加个.ToString是为了把空值转化为字符串，防止出错ListView员工基本信息.Items(i).SubItems.Add(dtbDeluser.Rows(i).Item("部门").ToString)ListView员工基本信息.Items(i).SubItems.Add(dtbDeluser.Rows(i).Item("科室").ToString)ListView员工基本信息.Items(i).SubItems.Add(dtbDeluser.Rows(i).Item("班组").ToString)ListView员工基本信息.Items(i).SubItems.Add(dtbDeluser.Rows(i).Item("职务").ToString)ListView员工基本信息.Items(i).SubItems.Add(dtbDeluser.Rows(i).Item("级别").ToString)Nexti
解决方案三：
DataTable.Select方法