📄 frmfindoutput.frm
字号:
Height = 5535
Left = 120
TabIndex = 19
Top = 3360
Width = 15015
_ExtentX = 26485
_ExtentY = 9763
_Version = 393216
Rows = 1
AllowUserResizing= 3
End
Begin VB.Frame Frame1
Caption = "条件设置"
Height = 3135
Left = 120
TabIndex = 17
Top = 120
Width = 5295
Begin vkUserContolsXP.vkCommand vkCommand3
Height = 375
Left = 3600
TabIndex = 9
Top = 2640
Width = 1455
_ExtentX = 2566
_ExtentY = 661
BackColorPushed1= 16514043
BackColorPushed2= 14474460
Caption = "关闭"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "frmFindOutput.frx":03C2
End
Begin vkUserContolsXP.vkCommand vkCommand2
Height = 375
Left = 1920
TabIndex = 8
Top = 2640
Width = 1455
_ExtentX = 2566
_ExtentY = 661
BackColorPushed1= 16514043
BackColorPushed2= 14474460
Caption = "导出"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "frmFindOutput.frx":075C
End
Begin vkUserContolsXP.vkCommand vkCommand1
Height = 375
Left = 240
TabIndex = 7
Top = 2640
Width = 1455
_ExtentX = 2566
_ExtentY = 661
BackColorPushed1= 16514043
BackColorPushed2= 14474460
Caption = "查询"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "frmFindOutput.frx":0AF6
End
Begin VB.ComboBox Combo3
Height = 345
Left = 1080
Style = 2 'Dropdown List
TabIndex = 3
Top = 1440
Width = 2175
End
Begin VB.ComboBox Combo2
Height = 345
Left = 1080
Style = 2 'Dropdown List
TabIndex = 2
Top = 1080
Width = 2175
End
Begin VB.ComboBox Combo1
Height = 345
Left = 1080
Style = 2 'Dropdown List
TabIndex = 1
Top = 720
Width = 2175
End
Begin vkUserContolsXP.vkTextBox txtInput
Height = 300
Index = 0
Left = 1080
TabIndex = 0
Top = 360
Width = 2175
_ExtentX = 3836
_ExtentY = 529
BeginProperty LegendFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ScrollBars = 0
LegendForeColor = 12937777
End
Begin vkUserContolsXP.vkTextBox txtInput
Height = 300
Index = 1
Left = 1080
TabIndex = 4
Top = 1800
Width = 2175
_ExtentX = 3836
_ExtentY = 529
BeginProperty LegendFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ScrollBars = 0
LegendForeColor = 12937777
End
Begin vkUserContolsXP.vkTextBox txtInput
Height = 300
Index = 2
Left = 1080
TabIndex = 5
Top = 2160
Width = 1815
_ExtentX = 3201
_ExtentY = 529
BeginProperty LegendFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ScrollBars = 0
LegendForeColor = 12937777
End
Begin vkUserContolsXP.vkTextBox txtInput
Height = 300
Index = 3
Left = 3240
TabIndex = 6
Top = 2160
Width = 1815
_ExtentX = 3201
_ExtentY = 529
BeginProperty LegendFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ScrollBars = 0
LegendForeColor = 12937777
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "物品名称"
Height = 225
Left = 240
TabIndex = 25
Top = 1440
Width = 720
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "物品编号"
Height = 225
Left = 240
TabIndex = 24
Top = 1080
Width = 720
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "仓库名称"
Height = 225
Left = 240
TabIndex = 23
Top = 720
Width = 720
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "到"
Height = 225
Left = 3000
TabIndex = 22
Top = 2160
Width = 180
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "日期"
Height = 225
Left = 240
TabIndex = 21
Top = 2160
Width = 360
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "签收人"
Height = 225
Left = 240
TabIndex = 20
Top = 1800
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "单号"
Height = 225
Left = 240
TabIndex = 18
Top = 360
Width = 360
End
End
Begin VB.ComboBox Combo5
Height = 345
Left = 7080
TabIndex = 28
Text = "Combo5"
Top = 4680
Visible = 0 'False
Width = 1215
End
Begin VB.ComboBox Combo4
Height = 345
Left = 7080
TabIndex = 27
Text = "Combo4"
Top = 5400
Visible = 0 'False
Width = 1215
End
End
Attribute VB_Name = "frmFindOutput"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim strPrintSQL As String
Dim strCaption() As String
Dim bStopSave As Boolean
Public Sub SaveAsTXT(FileName As String)
On Error GoTo ErrFlag
Dim FileNO As Long
Dim StrTemp As String
Dim i As Long, j As Long
FileNO = FreeFile
Open FileName For Output As #FileNO
DataShow.Redraw = False
StrTemp = ""
For i = 0 To DataShow.Rows - 1
DataShow.Row = i
For j = 1 To DataShow.Cols - 1
DataShow.Col = j
StrTemp = StrTemp & DataShow.Text & vbTab
Next j
StrTemp = StrTemp
Print #FileNO, StrTemp
StrTemp = ""
DoEvents
Next i
DataShow.Redraw = True
Close (FileNO)
MsgBox "保存到文件[" & FileName & "]完毕", vbOKOnly + vbInformation
Exit Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -