主题：随机数生成问题

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

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

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

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

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

打不开你的文件，请改成低版本再发上来。

10是Visual FoxPro类型；11、12都无法打开。

如下这种，才是正确的

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:test.zip

Dim dlg As new openFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim str_oleConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileSys.GetParentPath(dlg.FileName)  & ";Extended Properties=dBASE IV;"
    Dim ole_conn As New System.Data.OleDb.OleDbConnection(str_oleConn)
    Try
        ole_conn.Open()
       
        Dim cmd As New System.Data.OleDb.OleDbCommand("select * from " & FileSys.GetName(dlg.FileName), ole_conn)
       
        Dim reader As object = cmd.ExecuteReader()
       
        Do While reader.Read()
            If reader(0).Gettype.Name <> "DBNull" Then
                output.show(reader(0))
            Else
                output.show("空值")
            End If
           
        Loop
       
        msgbox("查询成功")
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    Finally
        ole_conn.Close()
    End Try   
End If

那就说明没问题。

如果你的test.dbf放在d:\test\test.dbf里面，那么你的数据源就要设置成

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\test;Extended Properties=dBASE IV;

随机数参考

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

多行内容处理参考

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