如何从txt文件读取出来的数据在datagrid中显示

[hudingchen]

如题，txt的内容：
a1,a2,a3,a4
b1,b2,b3,b4
c1,c2,c3,c4
读取后在datagrid中显示，显示结果如下：
a1 a2 a3 a4
b1 b2 b3 b4
c1 c2 c3 c4
代码怎么写？谢谢了~~~

[faysky2]

用DataGrid的话，需要与记录集绑定才能显示数据

[nj_tanghua]

一长串代码呢，80分，少了点吧

[ZOU_SEAFARER]

DataGrid 不能增加记录，我使用MSHFlexGrid代替

Private Sub Command1_Click()
Me.MSHFlexGrid1.Cols = 4
Dim LineStr As String
Dim a() As String
Dim i As Integer
Dim x As Integer
Open "D:\11.txt" For Input As #1
Do While Not EOF(1)

Line Input #1, LineStr
a() = Split(LineStr, ",")
Me.MSHFlexGrid1.AddItem ""
For i = 0 To UBound(a)
Me.MSHFlexGrid1.TextMatrix(x + 1, i) = a(i)
Next
x = x + 1
Loop
Close #1

End Sub

[zhzhq800204]

datagrid控件需要与数据记录集绑定才能显示数据。可以考虑用MSHFlexGrid控件。

test.txt文件
a1,a2,a3,a4,
b1,b2,b3,b4,
c1,c2,c3,c4,
代码：
Private Sub Command1_Click()
Dim strPath As String '调试文件路径
Dim FileNum As Integer
Dim strData(3, 4) As String
Dim str1 As String
Dim i As Integer
'On Error Resume Next
strPath = App.Path & "\test.txt"
'实例化一个文件类型
FileNum = FreeFile()
'打开文件
Open strPath For Input As FileNum
For j = 1 To 3
'取得一行的字符
Line Input #FileNum, newline
'将文本中的一行赋给str1
str1 = newline
i = 0
'取得第一行的值并赋给数组
Do While str1 <> ""
i = i + 1
strData(j, i) = Mid(str1, 1, InStr(str1, ",") - 1)
str1 = Mid(str1, InStr(str1, ",") + 1)
Loop
Next j

'设置控件的行列数
MSHFlexGrid1.Rows = 4
MSHFlexGrid1.Cols = 5
'添加数据
For i = 1 To 3
For j = 1 To 4
MSHFlexGrid1.Row = i
MSHFlexGrid1.Col = j
MSHFlexGrid1.Text = strData(i, j)
Next j
Next i
End Sub

[lsftest]

DataGrid 不能增加记录，我使用MSHFlexGrid代替
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
为什么不能增加呢？？？

可以直接把txt文件作为datagrid的数据源进行绑定。。。。。。。。

[lsftest]

如果设置正确的话，简单的浏览、编辑数据功能基本上不需要写代码。。。。。。。

[rainstormmaster]

同意 lsftest的意见

不过使用文本数据库需要配置ini文件,具体的你用google搜吧