急!急!请教一下,我想将datagrid控件中的记录通过一个记事本输出，请问代码应该如何实现？谢谢

Question

Private Sub cmdTxt_Click()
    cdlgIntro.CancelError = True
    
    With cdlgIntro
        .Filter = "文本文件(*.txt)|*.txt"
        .ShowSave
        strDbf = .FileName
    End With
    
    Open strDbf For Output As #1
        For i = 1 To hang '所需要的行数
            DataGrid1.Book = i
        
            If DataGrid1.Columns.Item(0) <> "" Then
                Print #1, DataGrid1.Columns.Item(0) & "——" & DataGrid1.Columns.Item(1)
            End If
        Next i
    Close #1
    
    MsgBox "当前显示文本输出成功！", vbInformation, "提示"
End Sub

Answer 1

Private Sub cmdTxt_Click()
    cdlgIntro.CancelError = True
    
    With cdlgIntro
        .Filter = "文本文件(*.txt)|*.txt"
        .ShowSave
        strDbf = .FileName
    End With
    
    Open strDbf For Output As #1
        For i = 1 To hang '所需要的行数
            DataGrid1.Book = i
        
           
                Print #1, DataGrid1.Columns.Item(0) & "——" & DataGrid1.Columns.Item(1)
            
        Next i
    Close #1
    
    MsgBox "当前显示文本输出成功！", vbInformation, "提示"
End Sub是这个，上边的是我现在所调试的程序用的。

Answer 2

什么都不需要，我只是用了个DIALOG CONTROL 6.0，用于选保存路径。

Answer 3

抱歉,我很菜,所以我看不懂你的代码.
"cdlgIntro"应该是你定义的变量吧?这个变量是什么类型呢?
"文本文件(*.txt)|*.txt"又是什么意思呢?
请您指点一下,谢谢!!!

Answer 4

引用 DIALOG CONTROL 6.0，然后拖到窗体上一个，变量名为cdlgIntro然后做个按钮cmdTxt运行后就看到效果了。

Answer 5

你所说的DIALOG CONTROL 6.0怎么找到?我还没有引用,在部件中找不到阿?再次麻烦了,谢谢!!

Answer 6

工程——部件——MICROSOFT COMMON DIALOG CONTROL 6.0

Answer 7

你好!我刚才试了一下这段代码,保存后的记事本什么内容也没有,而我的datagrid是有数据的.请问什么原因?要将您给的代码作什么样的修改呢?谢谢!!

Answer 8

我将hang改称数字后错误提示为 
DataGrid1.Book = i
类型不匹配？？？