Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求高手帮忙纠错


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

主题：求高手帮忙纠错
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107672 积分：547681 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2015/8/9 19:43:00 [显示全部帖子]


Dim dr as DataRow = DataTables("课类分类表").Find("[分类] ='" & 分类框的内容 & "'") /这里如果还有其他条件就按照这个方法加上
if dr isnot nothing then
  dr("授课内容") = 授课内容那个框的内容
end if

写到签到事件里
[此贴子已经被作者于2015/8/9 19:43:20编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107672 积分：547681 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2015/8/9 19:45:00 [显示全部帖子]

上面代码控件的值你自己读取
http://www.foxtable.com/help/index.html?n=1849.htm

如果你要修改的行有多条的话用 Select


[此贴子已经被作者于2015/8/9 19:45:59编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107672 积分：547681 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2015/8/9 20:09:00 [显示全部帖子]

你先看看帮助文档吧，磨刀不误砍柴功

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107672 积分：547681 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2015/8/9 20:15:00 [显示全部帖子]

签到事件中 的e中是打开的窗口中的参数，肯定不能用，这个是事件datacolchanged中的值
窗口中调用表用Tables("表名").Current 或者 CurrentTable.Current直接写表名的
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107672 积分：547681 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2015/8/9 20:21:00 [显示全部帖子]

图片点击可在新窗口打开查看

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107672 积分：547681 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2015/8/9 20:38:00 [显示全部帖子]

 Dim dr  As  DataRow
        dr =  DataTables("图14第三张表").Find("分类 = '" & e.DataRow("分类") & "'")
if dr innot nothing then
    Dim dr1 datarow
     dr1 = datatables("学员一览表").Find("姓名 = '" & dr("学员姓名")  & "' and 课程 = '" & dr("授课内容") & "'")
end if
 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107672 积分：547681 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2015/8/9 20:47:00 [显示全部帖子]

看21楼，你先从你那个第三张表中根据课程和其他条件查出 含有学员名称的那个行，然后把这个行中的字段当做条件再在学员一览表里查

 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107672 积分：547681 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2015/8/9 20:56:00 [显示全部帖子]

不行，要放在不同的ComboBox中

 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107672 积分：547681 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2015/8/9 21:14:00 [显示全部帖子]

可以
你再教师姓名ComboBox 的ValueChanged事件写
Dim cmb as WinForm.ComboBox= e.Form.Controls("ComboBox学员姓名")
cmb.ComboList = DataTables("学员教师关系表").GetComboListString("学员名称","[教师姓名] ='" & e.Sender.Text & "'")
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询