当前位置:编程学习 > VB >>

vb 怎么将文本导入到MSFLEXGRID 控件里

怎么将N行文本, 导入到MSFLEXGRID 控件里
格式为:
张三----男
李四---- 男
小王-----男
李四---- 男
如果有重复项,就不导入重复项,

导入成功后,再保存MSFLEXGRID 控件中的内容到文本文档 --------------------编程问答-------------------- 没用过msflexgrid控件,不过用过datagrid
哦对了,为什么lz不将txt导入到excel或者其他数据库中呢?
这样就省去了循环对txt中字符串的处理了,因为msflexgrid可以一次性读取数据库的数据并显示.

首先引用msflexgrid控件,

private sub form_load()
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
    cn.CursorLocation = adUseClient
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\temp.xls;Extended Properties='Excel 8.0;HDR=Yes'"
    rs.Open "select * from [Sheet1$]", cn, adOpenDynamic, adLockOptimistic
    Set msflexgrid1.DataSource = rs
end sub
--------------------编程问答-------------------- 先把数据读入数组,然后再把数组的值赋给表格控件 --------------------编程问答--------------------
引用 2 楼 veron_04 的回复:
先把数据读入数组,然后再把数组的值赋给表格控件

+1 --------------------编程问答-------------------- 如果文本格式比较规范,有明确的分隔符和分行符,那可以把文本读到一个字符串号,然后用clip属性一次粘贴,速度非常快
补充:VB ,  基础类
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,