Foxtable(狐表) → 用户栏目 → 专家坐堂 → 随机数生成问题


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

主题：随机数生成问题
帅哥哟，离线，有人找我吗？
扶风
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00 		随机数生成问题  发帖心情 Post By：2017/9/11 12:52:00 [只看该作者]

请问能否实现:1：根据指定的2个数，从这2个数 区间内 程序自动随机生成N个数？
2：是否可以连接Visual FoxPro的数据库文件，如数据表文件的扩展名是 .DBF？这个我没找到。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/11 14:18:00 [只看该作者]

1、

 

for i as integer = 1 to 10
    Dim r As Integer = Rand.Next(100, 130)
    output.show(r)
Next

 

http://www.foxtable.com/webhelp/scr/0349.htm

 

2、dbf数据库不能直接作为数据源，你可以导入dbf的数据

 

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=94700&skin=0

 
 回到顶部
帅哥哟，离线，有人找我吗？
扶风
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00 		  发帖心情 Post By：2017/9/11 17:00:00 [只看该作者]

老师，Dim r1 As Double= Rand.NextDouble，只能生成0-1之间的小数，能生成指定区间的小数吗？像Dim r As Integer = Rand.Next(100, 130)这样？另小数点能保留吗？比如我只要保留2位小数就好了。

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/11 17:11:00 [只看该作者]

Dim min As Double = 111.33
Dim max As Double = 123.45

For i As Integer = 1 To 10
    Dim r As Integer = Rand.Next(min*100, max*100)
    output.show(r/100)
Next
 回到顶部
帅哥哟，离线，有人找我吗？
扶风
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00 		  发帖心情 Post By：2017/9/11 18:22:00 [只看该作者]

老师报错：External table is not in the expected format.

代码：Dim dlg As new OpenFileDialog
dlg.Filter = "dbase|*.*"
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim mg As New Merger
mg.SourcePath = "\\6oo56\DBF" '指定数据文件所在目录
mg.Format = "dbase" '指定格式
mg.SourceTableName = "product" '指定要合并的dbase文件,无需扩展名
mg.DataTableName = "测试原始数据" '指定接收数据的表
mg.Merge() '开始合并
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:product.zip

End If
 回到顶部
帅哥哟，离线，有人找我吗？
扶风
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00 		  发帖心情 Post By：2017/9/11 19:08:00 [只看该作者]

老师，
dbf数据库不能直接作为数据源，你可以导入dbf的数据；

有方法做到自动更新导入DBF数据吗？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109406 积分：556686 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/9/11 20:10:00 [只看该作者]

只能导入低版本2.0的dbf文件，高版本不行。
 
你可以保存成低版本，或者保存成access、excel之类的再导入
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/12 9:54:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
扶风
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00 		  发帖心情 Post By：2017/9/13 16:04:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：3333333.bmp
图片点击可在新窗口打开查看

换了低版本，还是有如上报错。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/13 16:48:00 [只看该作者]

1、你5楼的文件有问题，不是正确的dbf格式的文件。

 

2、降低版本后的文件发上来测试。
 回到顶部
总数 20 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08398 秒, 5 次数据查询