Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问下这功能怎么实现，谢谢


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

主题：请问下这功能怎么实现，谢谢
帅哥哟，离线，有人找我吗？
yangjing
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：285 积分：2254 威望：0 精华：0 注册：2011/8/16 10:11:00 		请问下这功能怎么实现，谢谢  发帖心情 Post By：2017/6/11 11:47:00 [显示全部帖子]

请问有一张表“有氧运动”
结构如下

图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看
怎么按照由上自下的按顺序复制到表“运动处方”中的一条记录中去，比如第一条就写入到“有氧运动-项目1”，“有氧运动-时间1”中呢？，表结构如下

图片点击可在新窗口打开查看此主题相关图片如下：2.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
yangjing
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：285 积分：2254 威望：0 精华：0 注册：2011/8/16 10:11:00 		  发帖心情 Post By：2017/6/11 13:24:00 [显示全部帖子]

请问下这是咋回事呢，谢谢
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20170611132319.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
yangjing
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：285 积分：2254 威望：0 精华：0 注册：2011/8/16 10:11:00 		  发帖心情 Post By：2017/6/11 17:02:00 [显示全部帖子]

各位老师好，我想在我已经生成好的记录上追加后面的信息，我把代码修改了成这样，就是说我不需要新增一行在填，只要在当前行填充后面的数据就好了

Dim s As Row
s=Tables("运动处方").Value
Dim j As Integer=1
For Each a As Row In Tables("有氧运动").Rows
    If Tables("运动处方").Cols.Contains("有氧运动_项目" & j) Then
        s("有氧运动_项目" & j)=a("项目")
        s("有氧运动_时间" & j)=a("时间")
    End If
    j+=1
Next

提示会报错，请问怎么办

[此贴子已经被作者于2017/6/11 17:03:04编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yangjing
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：285 积分：2254 威望：0 精华：0 注册：2011/8/16 10:11:00 		  发帖心情 Post By：2017/6/11 17:12:00 [显示全部帖子]

还有就是请问下做图的时候我怎么才能在图表上显示数值，而不是在旁边显示图例呢？，就是说直接在饼图上对应区域显示内容和百分比，下面是代码


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20170611171019.jpg
图片点击可在新窗口打开查看


Dim sj1 As Double = val(e.Form.Controls("TextBox12").text)
Dim sj2 As Double = val(e.Form.Controls("TextBox22").text)
Dim sj3 As Double = val(e.Form.Controls("TextBox32").text)
Dim sj4 As Double = val(e.Form.Controls("TextBox42").text)

Dim Chart1 As WinForm.Chart '定义一个图表变量
Dim Series1 As WinForm.ChartSeries '定义一个图系变量
Chart1= Forms("运动处方").Controls("Chart2") ' 引用窗口中的图表
Chart1.SeriesList.Clear
Chart1.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart1.ChartType = ChartTypeEnum.Pie '图表1类型改为Bar(条形)
Series1 = Chart1.SeriesList.Add() '增加一个图系
Series1.Length = 1 '一个系列只能包括一个值
Series1.Text = "有氧运动"
Series1.Y(0) = sj1
Series1 = Chart1.SeriesList.Add() '增加一个图系
Series1.Length = 1 '一个系列只能包括一个值
Series1.Text = "力量运动"
Series1.Y(0) = sj2
Series1 = Chart1.SeriesList.Add() '增加一个图系
Series1.Length = 1 '一个系列只能包括一个值
Series1.Y(0) = sj3
Series1.Text = "柔韧运动"
Series1 = Chart1.SeriesList.Add() '增加一个图系
Series1.Length = 1 '一个系列只能包括一个值
Series1.Y(0) = sj4
Series1.Text = "日常活动"
Chart1.LegendVisible = False '显示图列
Chart1.LegendCompass= CompassEnum.East '图列显示在东方(右方)

[此贴子已经被作者于2017/6/11 17:13:07编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询