以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  随机数生成问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106545)

--  作者:扶风
--  发布时间:2017/9/11 12:52:00
--  随机数生成问题
请问能否实现:1:根据指定的2个数,从这2个数 区间内 程序自动随机生成N个数?
2:是否可以连接Visual FoxPro的数据库文件,如数据表文件的扩展名是 .DBF?这个我没找到。

--  作者:有点甜
--  发布时间: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

 


--  作者:扶风
--  发布时间:2017/9/11 17:00:00
--  
老师,Dim r1 As Double= Rand.NextDouble,只能生成0-1之间的小数,能生成指定区间的小数吗?像Dim r As Integer = Rand.Next(100, 130)这样?另小数点能保留吗?比如我只要保留2位小数就好了。
--  作者:有点甜
--  发布时间: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


--  作者:扶风
--  发布时间: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

--  作者:扶风
--  发布时间:2017/9/11 19:08:00
--  
老师,
dbf数据库不能直接作为数据源,你可以导入dbf的数据;

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

--  作者:有点蓝
--  发布时间:2017/9/11 20:10:00
--  
只能导入低版本2.0的dbf文件,高版本不行。
 
你可以保存成低版本,或者保存成access、excel之类的再导入

--  作者:有点甜
--  发布时间:2017/9/12 9:54:00
--  

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

 


--  作者:扶风
--  发布时间:2017/9/13 16:04:00
--  

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

换了低版本,还是有如上报错。

--  作者:有点甜
--  发布时间:2017/9/13 16:48:00
--  

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

 

2、降低版本后的文件发上来测试。