删除用户不执行是怎么回事 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 删除用户不执行是怎么回事

共有2131人关注过本帖树形打印复制链接主题：删除用户不执行是怎么回事

天蝉一线

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：370 积分：3195 威望：0 精华：0 注册：2016/6/16 16:11:00

删除用户不执行是怎么回事 发帖心情

Post By：2016/7/23 18:35:00 [只看该作者]

Dim cmd As New SQLCommand

Dim dt As DataTable

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("users"))

Dim lst As WinFor m.Table = e.For m.Controls("Table1")

If lst.Table.Cols.Count>=0 Then

Dim useryhbm As String

cmd.C

cmd.CommandText = "Delete Fro m {Users} Where [yhbm] = '" & Useryhbm & "'"

cmd.ExecuteNonQuery

End If

cmd.C

cmd.CommandText = "SELECT DISTINCT Name Fro m {Users}"

dt = cmd.ExecuteReader()

Dim dt1 As fxDataSource

bd1.Groups.AddDef("yhbm","用户信息_用户账号") '根据根据用户账号分组

bd1.Groups.AddDef("name","用户信息_用户姓名") '根据用户姓名分组

bd1.Groups.AddDef("dwmc","用户信息_所属部门") '根据所属部门分组

bd1.Groups.AddDef("group","用户信息_用户角色") '根据用户角色分组

dt1 = bd1.BuildDataSource()

Tables("用户管理_Table1").DataSource = dt1 '将统计结果绑定到Table

Tables("用户管理_table1").AutoSizeCols() '设置自动列宽

天蝉一线

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：370 积分：3195 威望：0 精华：0 注册：2016/6/16 16:11:00

Post By：2016/7/23 18:41:00 [只看该作者]

Dim cmd As New SQLCommand

Dim dt As DataTable

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("users"))

Dim lst As WinFor m.Table = e.Form.Controls("Table1")

If lst.Table.Cols.Count>=0 Then

Dim useryhbm As String

cmd.C

cmd.CommandText = "Delete Fro m {Users} Where [yhbm] = '" & Useryhbm & "'"

cmd.ExecuteNonQuery

End If

cmd.C

cmd.CommandText = "SELECT DISTINCT Name Fro m {Users}"

dt = cmd.ExecuteReader()

Dim dt1 As fxDataSource

bd1.Groups.AddDef("yhbm","用户信息_用户账号") '根据根据用户账号分组

bd1.Groups.AddDef("name","用户信息_用户姓名") '根据用户姓名分组

bd1.Groups.AddDef("dwmc","用户信息_所属部门") '根据所属部门分组

bd1.Groups.AddDef("group","用户信息_用户角色") '根据用户角色分组

dt1 = bd1.BuildDataSource()

Tables("用户管理_Table1").DataSource = dt1 '将统计结果绑定到Table

Tables("用户管理_table1").AutoSizeCols() '设置自动列宽

天蝉一线

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：370 积分：3195 威望：0 精华：0 注册：2016/6/16 16:11:00

Post By：2016/7/23 18:42:00 [只看该作者]

Dim cmd As New SQLCommand

Dim dt As DataTable

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("users"))

Dim lst As WinForm.Table = e.Form.Controls("Table1")

If lst.Table.Cols.Count>=0 Then

Dim useryhbm As String

cmd.C

cmd.CommandText = "Delete Fro m {Users} Where [yhbm] = '" & Useryhbm & "'"

cmd.ExecuteNonQuery

End If

cmd.C

cmd.CommandText = "SELECT DISTINCT Name Fro m {Users}"

dt = cmd.ExecuteReader()

Dim dt1 As fxDataSource

bd1.Groups.AddDef("yhbm","用户信息_用户账号") '根据根据用户账号分组

bd1.Groups.AddDef("name","用户信息_用户姓名") '根据用户姓名分组

bd1.Groups.AddDef("dwmc","用户信息_所属部门") '根据所属部门分组

bd1.Groups.AddDef("group","用户信息_用户角色") '根据用户角色分组

dt1 = bd1.BuildDataSource()

Tables("用户管理_Table1").DataSource = dt1 '将统计结果绑定到Table

Tables("用户管理_table1").AutoSizeCols() '设置自动列宽

天蝉一线

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：370 积分：3195 威望：0 精华：0 注册：2016/6/16 16:11:00

Post By：2016/7/23 18:42:00 [只看该作者]

代码发不全呀

狐狸爸爸

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2016/7/24 7:46:00 [只看该作者]

可以将代码保存为一个文本文件后上床

大红袍

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/7/24 10:00:00 [只看该作者]

1、变量不需要重新dim

2、你执行sql语句是删除数据库的数据，而不是foxtable里面的数据

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] = '" & Useryhbm & "'"
cmd.ExecuteNonQuery
End If
cmd.CommandText = "SELECT * Fro m {Users}"
dt = cmd.ExecuteReader()
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() '设置自动列宽