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


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

主题：关于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


加好友 发短信
等级：小狐 帖子：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",不知道是怎么回事
 回到顶部
帅哥哟，离线，有人找我吗？
天蝉一线
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
天蝉一线
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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",不知道是怎么回事
 回到顶部
帅哥哟，离线，有人找我吗？
天蝉一线
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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


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

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

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


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

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

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


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

不知道怎么回事，从哪可以把图片放到对话框

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


加好友 发短信
等级：小狐 帖子：370 积分：3195 威望：0 精华：0 注册：2016/6/16 16:11:00 		  发帖心情 Post By：2016/7/25 16:58:00 [显示全部帖子]

我发到foxtable@qq.com的邮箱里了
 回到顶部
帅哥哟，离线，有人找我吗？
天蝉一线
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：370 积分：3195 威望：0 精华：0 注册：2016/6/16 16:11:00 		  发帖心情 Post By：2016/7/25 17:20:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:这是错误提示.rar
 回到顶部
总数 23 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 6 次数据查询