Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口中复选框


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

主题：窗口中复选框
美女呀，离线，留言给我吧！
胡噜胡噜毛
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：24 积分：257 威望：0 精华：0 注册：2021/11/20 15:47:00 		窗口中复选框  发帖心情 Post By：2022/3/4 11:39:00 [显示全部帖子]

窗口中显示学生名单表，通过复选框选择多条记录，怎么自动写入住宿学生表中（勾选的自动增加，去掉勾选的自动删除）
If e.Row.Checked  Then
Dim Cols1() As String = {"年级","班级","姓名","性别","联系电话"}
Dim Cols2() As String = {"年级","班级","姓名","性别","联系电话"}
For Each dr1 As Row In Tables("学生名单").GetCheckedRows
    Dim dr2 As DataRow = DataTables("住宿学生").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next
End If
 回到顶部
美女呀，离线，留言给我吧！
胡噜胡噜毛
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：24 积分：257 威望：0 精华：0 注册：2021/11/20 15:47:00 		  发帖心情 Post By：2022/3/4 16:59:00 [显示全部帖子]

如何通过组合框筛选不同数据，比如组合框中选择2021级1班，下面的table中出现相应班级的名单
Dim txt As String = e.Form.Controls("ComboBox1").Text
Dim tbl As Table = Tables("住宿学生_table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'%" & txt & "%'"
    tbl.Filter = "班级 Like " & txt & " "
DataTables("住宿学生_table1").ReplaceFor("_locked", False, "")   
End If
[此贴子已经被作者于2022/3/4 17:00:17编辑过]
 回到顶部
美女呀，离线，留言给我吧！
胡噜胡噜毛
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：24 积分：257 威望：0 精华：0 注册：2021/11/20 15:47:00 		  发帖心情 Post By：2022/3/4 17:33:00 [显示全部帖子]

不存在   住宿学生_table1 的控件

 回到顶部
美女呀，离线，留言给我吧！
胡噜胡噜毛
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：24 积分：257 威望：0 精华：0 注册：2021/11/20 15:47:00 		  发帖心情 Post By：2022/3/7 8:11:00 [显示全部帖子]


[此贴子已经被作者于2022/3/7 8:15:35编辑过]
 回到顶部
美女呀，离线，留言给我吧！
胡噜胡噜毛
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：24 积分：257 威望：0 精华：0 注册：2021/11/20 15:47:00 		  发帖心情 Post By：2022/3/7 8:18:00 [显示全部帖子]

成功了，谢谢

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