Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于table控件选择行的问题


  共有4821人关注过本帖树形打印复制链接

主题：关于table控件选择行的问题
帅哥哟，离线，有人找我吗？
天蝉一线
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：370 积分：3195 威望：0 精华：0 注册：2016/6/16 16:11:00 		关于table控件选择行的问题  发帖心情 Post By：2016/7/25 15:55:00 [只看该作者]

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() '设置自动列宽

请问老师，这段代码是删除功能用的，它需要删除通过GroupTableBuilder生成的副本（"用户管理_Table1"）点击行删除，但是不知道怎么定义才能实现这个功能。这个副本在打开窗口的时候就已经存在，使用代码生成的，不是在table控件的属性里面设置的。属性的副本是false.
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/7/25 15:59:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
天蝉一线
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：370 积分：3195 威望：0 精华：0 注册：2016/6/16 16:11:00 		  发帖心情 Post By：2016/7/25 16:08:00 [只看该作者]

Dim dt As DataTable
Dim cmd As New SQLCommand
cmd.C
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() '设置自动列宽
这一段代码是用户窗口aferload事件的内容，但是我打开窗口的时候总提示“列”name“不属于表 用户管理_table1",不知道是怎么回事
 回到顶部
帅哥哟，离线，有人找我吗？
天蝉一线
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：370 积分：3195 威望：0 精华：0 注册：2016/6/16 16:11:00 		  发帖心情 Post By：2016/7/25 16:10:00 [只看该作者]

我在users表的事件currentchanged中加了如下代码：
If Forms("用户管理").Opened Then '如果窗口已经打开
    If e.Table.Current Is Nothing Then Return
    Dim dr As DataRow = e.Table.Current.DataRow
    Dim wz As Integer = Tables("用户管理_Table1").FindRow(dr)
    If wz >=0 Then
        systemready = False
        Tables("用户管理_Table1").Position = wz
        systemready = True
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
天蝉一线
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：370 积分：3195 威望：0 精华：0 注册：2016/6/16 16:11:00 		  发帖心情 Post By：2016/7/25 16:13:00 [只看该作者]

Dim dt As DataTable
Dim cmd As New SQLCommand
cmd.Conne ctio n Name = "cwgl"
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() '设置自动列宽
这一段代码是用户窗口aferload事件的内容，但是我打开窗口的时候总提示“列”name“不属于表 用户管理_table1",不知道是怎么回事
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/7/25 16:16:00 [只看该作者]

1、表是否正确生成了？

 

2、你5楼的代码没问题的，肯定有其它代码影响了。
 回到顶部
帅哥哟，离线，有人找我吗？
天蝉一线
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：370 积分：3195 威望：0 精华：0 注册：2016/6/16 16:11:00 		  发帖心情 Post By：2016/7/25 16:44:00 [只看该作者]

为什么我上传的附件找不见了，不知道您收到没有
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/7/25 16:45:00 [只看该作者]

 没看到你上传的附件

 回到顶部
帅哥哟，离线，有人找我吗？
天蝉一线
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：370 积分：3195 威望：0 精华：0 注册：2016/6/16 16:11:00 		  发帖心情 Post By：2016/7/25 16:45:00 [只看该作者]

这是我给您的附件，看看问题出在哪，还有些需要帮助的内容都在附件里了

 回到顶部
帅哥哟，离线，有人找我吗？
天蝉一线
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：370 积分：3195 威望：0 精华：0 注册：2016/6/16 16:11:00 		  发帖心情 Post By：2016/7/25 16:47:00 [只看该作者]

这是我给您的附件，看看问题出在哪，还有些需要帮助的内容都在附件里了

 回到顶部
总数 38 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询