Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

哪位大侠能帮我看看?

wms  发表于:2009-08-05 16:07:36  
复制

我要实现的要求都在里面,请大侠帮帮忙点击下载此附件

 

Top
蟹仔 发表于:2009-08-05 18:53:51

这种问题其实非常简单,你最好得掌握最基本的VBA再进行软件开发。

点击下载此附件

蟹仔 发表于:2009-08-05 18:55:43

关于图表,我并不知道你需要什么样的格式。又不说清楚x轴是什么 y轴是什么



wms 发表于:2009-08-05 21:10:59
kangkai:谢谢了,要是显示结果用长方形条状表示给更,用Y轴的也行。现在学习中,所以很多不懂啊……唉

蟹仔 发表于:2009-08-05 21:31:28

模块里面刚才写错了,不应该用整形,你算出来的是小数。应改成实数型,如果你单纯想靠一个长方形的长度显示结果,那就直接用文本框算了

Private Sub Form_Load()

Me.Text=ss
Me.Text.Width = Me.Text0.Width * Me.Text.Text
End Sub



wms 发表于:2009-08-05 23:25:39
kangkai:我修改了一下,但当选择“是党员”后下面的结果就不对了,不知道怎么回事,您帮我看看吧!谢谢了点击下载此附件

蟹仔 发表于:2009-08-06 07:56:32
因为你的IF语句混乱! 记得要加end if 要不s会算很多次的。

wms 发表于:2009-08-06 09:56:49
kangkai:我试过,但出现编译错误的提示“End if 没有if块 !”。我试过好多次都不行。当我只留其中一个Frame6的选项包含if语句时,计算是正确的,但其他Frame6中也有时就错误了……现在都不知道哪有问题。您帮我改改吧,谢谢哦

总记录:7篇  页次:1/1 9 1 :