刚接触vsflexgrid，求vb6.0导入记事本文件到vsflexgrid制作的报表的程序：

在VB6.0中，用VSFlexGrid制件了一个报表，现将记事本文件导入到vsflexgrid制作的报表中，具体如下：
1、硬盘的txt数据不固定在哪个盘，实行自由选择；
2、txt文本以行为单位实行逐行导入表中的第2行开始的第二列各个单元格，每行txt数据导入到vsflexgrid报表中的一个单元格，如下面数据：依次导入到报表中的第2-6个单元格：

1234567
256
1 2 3 4 5
55 99 78
1457891012

谢谢！

脗楼脰梅脛茫脢脟卤脿脨麓脢卤脫枚碌陆脕脣脦脢脤芒脛脴拢驴禄鹿脢脟脟贸脮芒赂枚鲁脤脨貌拢驴

[此贴子已经被作者于2016-5-15 20:38编辑过]

第一个是设计界面，第二个是运行界面。下面是代码，你是不是将MSFlexGrid1控件误写为vsflexgrid控件了？

Dim LJWJM As String

Private Sub Command1_Click()
CommonDialog1.Filter = "txt文件（.txt)|*.txt"
CommonDialog1.ShowOpen
LJWJM = CommonDialog1.FileName
If LJWJM <> "" Then
Command2.Enabled = True
Command1.Enabled = False
End If
End Sub

Private Sub Command2_Click()
Dim X(1 To 5) As String, N As Integer, I As Integer
Open LJWJM For Input As #1
Do While Not EOF(1)
N = N + 1
Input #1, X(N)
Loop
Close #1
MSFlexGrid1.Clear
MSFlexGrid1.Visible = True
With MSFlexGrid1
    .Cols = 6
    .Rows = 2
.TextMatrix(0, 0) = "A"
.TextMatrix(0, 1) = "B"
.TextMatrix(0, 2) = "C"
.TextMatrix(0, 3) = "D"
.TextMatrix(0, 4) = "E"
.TextMatrix(0, 5) = "F"
For I = 1 To 5
.TextMatrix(1, 0) = 1
.TextMatrix(1, I) = X(I)
Next I
End With
End Sub

仅仅就你的问题中的数据存储在文本文件中，就5行。

[此贴子已经被作者于2016-5-15 20:23编辑过]

你想干什么？是想说：“无偿的话楼主还是自己慢慢研究吧，毕竟你这问题不是一句两句能给你解决的。如果可以接受多少出点费用的话，可以加我QQ细聊。”

[此贴子已经被作者于2016-5-15 22:03编辑过]

VSFlexGrid是VSFlexGrid， MSFlexGrid是MSFlexGrid，我先用你的代码学习一下，不懂再请教，谢谢！

请问，你对你的要求你自己做了什么？具体在哪里遇到问题？什么都没有，典型的伸手党。就算我这样说，又有何不可？

脗楼脰梅脛茫脢脟卤脿脨麓脢卤脫枚碌陆脕脣脦脢脤芒脛脴拢驴禄鹿脢脟脟贸脮芒赂枚鲁脤脨貌拢驴