如何将datagridview行数据写入记事本 [英] How to write data of datagridview rows data into note pad

问题描述

我正在使用此代码，但它没有给我正确的结果。

每次最后一条记录未打印在记事本上，为什么有任何想法？



代码：

 ''' '''''''''' '
  iFile = FreeFile 
 
打开sFileName 对于输出 As  #iFile 
 
打印#iFile， 客户订单详情： 
 '  tdbgCOBrowse.Refresh  
 tdbgCOBrowse.MoveLast 
 tdbgCOBrowse .MoveFirst 
 
   不 tdbgCOBrowse.EOF 
 
打印iFile，tdbgCOBrowse.Columns（  Year）。Value + tdbgCOBrowse.Columns（  Column1）。值+ tdbgCOBrowse.Columns（  Column2）。值;标签（ 10 ）; tdbgCOBrowse.Columns（  Column3）。值;标签（ 10 ）; tdbgCOBrowse.Columns（  Column4）。值; Tab（ 10 ）; tdbgCOBrowse.Columns（  Column5）。值;标签（ 25 ）; tdbgCOBrowse.Columns（  Column6）。值;标签（ 10 ）; 
 tdbgCOBrowse.Columns（  Column7）。值，Tab（ 35 ）; dbgCOBrowse.Columns（  Column8）。值;标签（ 45 ）; 
 tdbgCOBrowse.Columns（  Column9）。标签（ 55 ）; tdbgCOBrowse.Columns（  Column10）。值
 
 tdbgCOBrowse.MoveNext 
  Wend  
 Screen.MousePointer = vbDefault 
 lReturn = Shell（  Notepad.exe sFileName，vbNormalFocus）
 ''' ''''''' 

解决方案

你必须关闭＃ iFile在使用记事本打开它之前。



Close语句告诉VB你已经完成了使用文件，并释放了处理该文件所需的系统资源。

I am using this code but it not giving me proper result.
Every time last record not printed on note pad, why any Idea?

Code:

''''''''''''''
iFile = FreeFile

    Open sFileName For Output As #iFile

    Print #iFile, "Details of Customer Orders :"
'    tdbgCOBrowse.Refresh
    tdbgCOBrowse.MoveLast
    tdbgCOBrowse.MoveFirst

    While Not tdbgCOBrowse.EOF

Print iFile, tdbgCOBrowse.Columns("Year").Value + tdbgCOBrowse.Columns("Column1").Value +                    tdbgCOBrowse.Columns("Column2").Value; Tab(10); tdbgCOBrowse.Columns("Column3").Value; Tab(10); tdbgCOBrowse.Columns("Column4").Value;Tab(10); tdbgCOBrowse.Columns("Column5").Value; Tab(25); tdbgCOBrowse.Columns("Column6").Value; Tab(10);
tdbgCOBrowse.Columns("Column7").Value, Tab(35); dbgCOBrowse.Columns("Column8").Value; Tab(45); 
tdbgCOBrowse.Columns("Column9").Value; Tab(55); tdbgCOBrowse.Columns("Column10").Value

    tdbgCOBrowse.MoveNext
    Wend
    Screen.MousePointer = vbDefault
    lReturn = Shell("Notepad.exe "  sFileName, vbNormalFocus)
'''''''''''''''''

解决方案

You have to close #iFile before opening it using Notepad.

The Close statement tells VB that you are done using a file, and frees up the system resources needed to process that file.

这篇关于如何将datagridview行数据写入记事本的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！