以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  随机抽取名称问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119665)

--  作者：xxfoxtable --  发布时间：2018/5/29 20:52:00 --  随机抽取名称问题  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目1.rar 不随机，请老师指点一下

--  作者：有点蓝 --  发布时间：2018/5/29 21:03:00 --   Dim Val3 As Integer = Rand.Next(0,Tables("公司档案").Rows.Count) Dim text1 As WinForm.TextBox = e.Form.Controls("TextBox1") text1.text=Tables("公司档案").Rows(val3)("公司名称")