蓝老师,如果第二个指针代表金额,下面代码的如何修改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
蓝老师,我看过了帮助,还是不知道怎么修改,我已上传了实例,敬请指导修改一下案例1,谢谢!
给指针加上名称,然后
gg.RadialGauge.MorePointers("xx名称").Value = r("金额")