主题：关于table控件选择行的问题

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim lst As WinForm.Table = e.Form.Controls("Table1")
If lst.Table.Cols.Count>=0 Then
    cmd.CommandText = "Delete Fro m {Users} Where [yhbm] = '" & lst.Table.Current("yhbm") & "'"
    cmd.ExecuteNonQuery
End If

1、表是否正确生成了？

 

2、你5楼的代码没问题的，肯定有其它代码影响了。

 没看到你上传的附件

 看8楼。

http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

 

试试

 

 

If e.Table.Current Is Nothing Then Return

Dim wz As Integer = Tables("users").FindRow("某列 = '" & e.Table.Current("某列") & "'")

If wz >=0 Then

    systemready = False

    Tables("users").Position = wz

    systemready = True

End If

 上传实例

 上传到论坛里。

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim lst As WinForm.Table = e.Form.Controls("Table1")
cmd.ConnectionName = "cwgl"
cmd.CommandText = "SELECT * Fr om {Users}"
dt = cmd.ExecuteReader()
If lst.Table.Cols.Count>=0 Then
    cmd.CommandText = "Delete Fr om {Users} Where [yhbm] =  '" & lst.Table.Current("用户信息_用户账号") & "'"
    cmd.ExecuteNonQuery
End If
Dim bd1 As New GroupTableBuilder("统计表1", dt)
bd1.Groups.AddDef("yhbm","用户信息_用户账号") '根据根据用户账号分组
bd1.Groups.AddDef("name","用户信息_用户姓名") '根据用户姓名分组
bd1.Groups.AddDef("dwmc","用户信息_所属部门") '根据所属部门分组
bd1.Groups.AddDef("group","用户信息_用户角色") '根据用户角色分组
Tables("用户管理_Table1").DataSource =  bd1.BuildDataSource()
Tables("用户管理_table1").AutoSizeCols() '设置自动列宽

cmd.CommandText = "Delete Fr om {Users} Where [yhbm] =  '" & lst.Table.Current("用户信息_用户账号") & "'"