Foxtable(狐表)用户栏目专家坐堂 → [求助]


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

主题:[求助]

帅哥哟,离线,有人找我吗?
dqlgood
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:257 积分:4399 威望:0 精华:0 注册:2011/7/5 9:38:00
[求助]  发帖心情 Post By:2011/10/14 11:50:00 [显示全部帖子]

 

请帮忙实现动态控件问题,详见附件:

 

本人菜鸟,刚认识FOXTABLE就异想天开想弄一个应用,请高手帮忙一下。谢谢

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.table


 回到顶部
帅哥哟,离线,有人找我吗?
dqlgood
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:257 积分:4399 威望:0 精华:0 注册:2011/7/5 9:38:00
[求助]  发帖心情 Post By:2011/10/14 14:29:00 [显示全部帖子]

但还没有实现动态窗体,我是想如果A表中仅有检测项目C、检测项目F、检测项目G、检测项目J;窗体中CheckBox1CheckBox4能否仅显示其对应的项目,且TextBox1TextBox4也是其对应的统计。


 回到顶部
帅哥哟,离线,有人找我吗?
dqlgood
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:257 积分:4399 威望:0 精华:0 注册:2011/7/5 9:38:00
  发帖心情 Post By:2011/10/14 14:30:00 [显示全部帖子]

怪我没说明白!

 回到顶部
帅哥哟,离线,有人找我吗?
dqlgood
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:257 积分:4399 威望:0 精华:0 注册:2011/7/5 9:38:00
  发帖心情 Post By:2011/10/14 15:12:00 [显示全部帖子]

是的,有几十个。


 回到顶部
帅哥哟,离线,有人找我吗?
dqlgood
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:257 积分:4399 威望:0 精华:0 注册:2011/7/5 9:38:00
  发帖心情 Post By:2011/10/14 15:17:00 [显示全部帖子]

一般每批样品有5—10个项目,不知是用固定控件动态显示,还是用动态增加控件简洁一些?
[此贴子已经被作者于2011-10-14 15:59:41编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
dqlgood
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:257 积分:4399 威望:0 精华:0 注册:2011/7/5 9:38:00
  发帖心情 Post By:2011/10/14 16:45:00 [显示全部帖子]

真棒!谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
dqlgood
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:257 积分:4399 威望:0 精华:0 注册:2011/7/5 9:38:00
  发帖心情 Post By:2011/10/17 7:39:00 [显示全部帖子]

经实际应用才理解老师“效率低”的含义,自己尝试将老师的语句克隆到表B:

 

Select Case  e.DataCol.Name

    Case "检验项目"

        Dim nms As List(of String) = DataTables("表A").GetUniqueValues("","检验项目")

        Dim cnt As Integer

        For Each nm As String In nms

            Dim chk As DataRow           

            chk("检验项目") = nm

            chk("数量") = DataTables("表A").compute("Count([样品编号])","检验项目 = '" & nm & "'")

            Tables("表B").AddNew()           

        Next

End Select

但不知错在哪里?请老师指教!谢谢!


 回到顶部