在VB中如何创建像EXCEL一样的表

icecoldheart 2008-01-04 08:22:03
现在要用VB创建一个表来填写数据,不能用到数据库的东西,就是在VB中做出来的程序,其中的数据保存的时候要以文件的形式保存,不能保存在数据库中,数据的输入与读取都与数据库无关,就是只与文件有关,就像平时我们的文本一样.
我想实现以下的形式:
学号 姓名 成绩 排名 
0401 王东 234 12
0402 王晶 546 01
. . . .
. . . .
我要在VB中实现这样的样式,能实现吗?就是说用VB能做出这样的表来吗?如果能的话要用到什么控件呢?
...全文
224 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
icecoldheart 2008-01-06
  • 打赏
  • 举报
回复
呵呵你这样以来就是直接调用的excel,不过还是谢谢你啦
HowAreYou12345678 2008-01-05
  • 打赏
  • 举报
回复
呵呵,像EXCEL的输入表格,自己画一个。我现在画的功能已经跟MSFlexGrid很相似了,还加了任意行列的固定,冻结,锁定圣至任意单元格的锁定(这三种类型的单元格都不能被编辑);任意单元格的合并,而不是MSFlexGrid只有相同值的单元格才能合并;未来再加入单元格的多种输入类型及校验;单元格间的简单公式引用。
熊孩子开学喽 2008-01-05
  • 打赏
  • 举报
回复
不与数据库联系当然可以,直接用文件记录保存就可以了
显示可以用表格控件,MSFLEXGRID就可以了。
文件记录可以使用文本文件,也可以使用二进制文件。
使用文本文件的话,建议用CSV格式,该格式甚至可以直接在EXCEL中打开。
二进制文件的话,需要你预先建立一个自定义数据结构,当然,这个数据结构就是你的字段定义。
并且该数据结构数组使用起来就和数据库的表结构是一样的。然后直接将整个数组一次性写入二进制文件。
读取的时候也是一次性读入数组,非常方便。

至于要把MSFLEXGRID做的和EXCEL一样,也不是不可能,但是你得狠狠花上一番心思才能写得出来。
事实证明,一个MSFLEXGRID再加上一个TEXT控件就能做到常规意义上完整的全文档编辑,包括和其它程序的剪贴板交换数据(如EXCEL)。
东方之珠 2008-01-05
  • 打赏
  • 举报
回复
用Excel对象即可解决(电子表格形式,保存为xls格式):

Dim Excel As object

private sub form_load()
Command1.caption="打开"
end sub

Private Sub Command1_Click()
on error resume next
Set Excel=CreateObject("Excel.Application")
if InStr(Command1.caption,"打开")>0 then '打开xls文件
Set A=Excel.Documents.open("D:\1.xls")
Excel.Visible=True
Command1.caption="关闭"
else
'如果文档对象不为空,那么说明打开了文档,关闭它,并销毁文档对象
If Not(A Is Nothing) Then A.Close:Set A=Nothing
'如果Excel application对象不为空,那么说明创建了Excel对象,
'退出它,并销毁对象
If Not(Excel Is Nothing) Then Excel.Quit:Set Excel=Nothing
Command1.caption="打开"
end if
End Sub


icecoldheart 2008-01-04
  • 打赏
  • 举报
回复
不与数据库联系也可实现吗?我不要与数据库相关的.
vbman2003 2008-01-04
  • 打赏
  • 举报
回复
简单的方法就是用表格控件,比如:MSHFlexGrid

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧