以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  仪表盘的值怎么与数据表数据关联变成动态仪表盘  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193584)

--  作者:13315253800
--  发布时间:2024/9/27 9:31:00
--  仪表盘的值怎么与数据表数据关联变成动态仪表盘
请教老师,仪表盘的值怎么与数据表数据关联变成动态仪表盘?
--  作者:有点蓝
--  发布时间:2024/9/27 10:14:00
--  
请具体举例具体说明
--  作者:13315253800
--  发布时间:2024/9/27 12:22:00
--  
请教:指针指定为实际数量,总刻度为计划数,如何关联订单表?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:案例.foxdb


--  作者:有点蓝
--  发布时间:2024/9/27 13:41:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:案例.zip


--  作者:13315253800
--  发布时间:2024/9/27 14:38:00
--  
蓝老师,如果第二个指针代表金额,下面代码的如何修改
For Each r As Row In Tables("订单").Rows
    If r("产品") = "PD01" Then
        Dim gg As WinForm.Gauges = Forms("窗口1").Controls("Guages1")
        gg.RadialGauge.Maximum = r("计划")
        gg.RadialGauge.value = r("数量")
    Else
        Dim gg As WinForm.Gauges = Forms("窗口1").Controls("Guages2")
        gg.RadialGauge.Maximum = r("计划")
        gg.RadialGauge.value = r("数量")
    End If
Next

--  作者:13315253800
--  发布时间:2024/9/27 14:40:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:案例1.foxdb


--  作者:有点蓝
--  发布时间:2024/9/27 15:09:00
--  
http://www.foxtable.com/webhelp/topics/3785.htm
--  作者:13315253800
--  发布时间:2024/9/27 15:43:00
--  
蓝老师,我看过了帮助,还是不知道怎么修改,我已上传了实例,敬请指导修改一下案例1,谢谢!
--  作者:有点蓝
--  发布时间:2024/9/27 15:44:00
--  
给指针加上名称,然后

gg.RadialGauge.MorePointers("xx名称").Value = r("金额")

--  作者:13315253800
--  发布时间:2024/9/27 16:49:00
--  
蓝老师,帮助修改一下,谢谢!