📄 fornhbin.frm
字号:
Index = 11
Left = 180
OleObjectBlob = "FORNHBIN.frx":0E2B
TabIndex = 34
Top = 240
Width = 1305
End
End
Begin VB.Frame Frame1
Caption = "基本字段选择"
Height = 2235
Left = 5760
TabIndex = 15
Top = 120
Width = 3165
Begin VB.ComboBox Combo1
ForeColor = &H00FF0000&
Height = 300
Left = 1680
Style = 2 'Dropdown List
TabIndex = 19
Top = 300
Width = 1245
End
Begin VB.ComboBox Combo4
ForeColor = &H00FF0000&
Height = 300
ItemData = "FORNHBIN.frx":0E8A
Left = 1680
List = "FORNHBIN.frx":0E8C
Style = 2 'Dropdown List
TabIndex = 18
Top = 1740
Width = 1245
End
Begin VB.ComboBox Combo3
ForeColor = &H00FF0000&
Height = 300
Left = 1680
Style = 2 'Dropdown List
TabIndex = 17
Top = 1260
Width = 1245
End
Begin VB.ComboBox Combo2
ForeColor = &H00FF0000&
Height = 300
Left = 1680
Style = 2 'Dropdown List
TabIndex = 16
Top = 780
Width = 1245
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
Index = 0
Left = 240
OleObjectBlob = "FORNHBIN.frx":0E8E
TabIndex = 20
Top = 330
Width = 1275
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
Index = 1
Left = 240
OleObjectBlob = "FORNHBIN.frx":0EF1
TabIndex = 21
Top = 840
Width = 1275
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
Index = 2
Left = 240
OleObjectBlob = "FORNHBIN.frx":0F54
TabIndex = 22
Top = 1320
Width = 1275
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
Index = 3
Left = 240
OleObjectBlob = "FORNHBIN.frx":0FB7
TabIndex = 23
Top = 1830
Width = 1275
End
End
Begin VB.Frame Frame2
Caption = "科目字段选择"
Height = 4245
Left = 1830
TabIndex = 2
Top = 10710
Width = 6885
Begin VB.ComboBox Combo12
ForeColor = &H000000FF&
Height = 300
Left = 150
Style = 2 'Dropdown List
TabIndex = 10
Top = 2010
Width = 1215
End
Begin VB.ComboBox Combo11
ForeColor = &H00FF0000&
Height = 300
Left = 2160
Style = 2 'Dropdown List
TabIndex = 9
Top = 2010
Width = 1245
End
Begin VB.ComboBox Combo10
ForeColor = &H000000FF&
Height = 300
Left = 150
Style = 2 'Dropdown List
TabIndex = 8
Top = 1470
Width = 1215
End
Begin VB.ComboBox Combo9
ForeColor = &H00FF0000&
Height = 300
Left = 2160
Style = 2 'Dropdown List
TabIndex = 7
Top = 1470
Width = 1245
End
Begin VB.ComboBox Combo8
ForeColor = &H000000FF&
Height = 300
Left = 150
Style = 2 'Dropdown List
TabIndex = 6
Top = 930
Width = 1215
End
Begin VB.ComboBox Combo7
ForeColor = &H00FF0000&
Height = 300
Left = 2160
Style = 2 'Dropdown List
TabIndex = 5
Top = 930
Width = 1245
End
Begin VB.ComboBox Combo6
ForeColor = &H00FF0000&
Height = 300
Left = 2160
Style = 2 'Dropdown List
TabIndex = 4
Top = 390
Width = 1245
End
Begin VB.ComboBox Combo5
ForeColor = &H000000FF&
Height = 300
Left = 150
Style = 2 'Dropdown List
TabIndex = 3
Top = 390
Width = 1215
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
Index = 6
Left = 1560
OleObjectBlob = "FORNHBIN.frx":101A
TabIndex = 11
Top = 420
Width = 465
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
Index = 5
Left = 1560
OleObjectBlob = "FORNHBIN.frx":1073
TabIndex = 12
Top = 960
Width = 465
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
Index = 7
Left = 1560
OleObjectBlob = "FORNHBIN.frx":10CC
TabIndex = 13
Top = 1500
Width = 465
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
Index = 8
Left = 1560
OleObjectBlob = "FORNHBIN.frx":1125
TabIndex = 14
Top = 2040
Width = 465
End
End
Begin VB.CommandButton Command2
Caption = "确定导入"
Height = 615
Left = 6660
TabIndex = 1
Top = 3330
Width = 1275
End
Begin VB.CommandButton Command1
Caption = "刷新列表"
Height = 615
Left = 5850
TabIndex = 0
Top = 4320
Width = 1275
End
Begin ACTIVESKINLibCtl.Skin Skin1
Left = 5940
OleObjectBlob = "FORNHBIN.frx":117E
Top = 2910
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
Index = 4
Left = 5760
OleObjectBlob = "FORNHBIN.frx":4B66D
TabIndex = 50
Top = 2460
Width = 3135
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
Index = 13
Left = 60
OleObjectBlob = "FORNHBIN.frx":4B6E4
TabIndex = 51
Top = 2460
Width = 5535
End
Begin MSComDlg.CommonDialog Cmd1
Left = 0
Top = 0
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
End
Attribute VB_Name = "FORNHBIN"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim fd As Field
Dim astr As String
Dim dbAdd As Database
Dim db As Database
Dim GYXE As String
Dim rs As Recordset
Dim NUM As Long
Dim FU As Long
Dim STR As String
Dim lssel As String
Dim lssela As String
Private Sub Command1_Click()
On Error Resume Next
Combo1.Clear
Combo4.Clear
Combo2.Clear
Combo3.Clear
Combo1.AddItem "不导入"
Combo2.AddItem "不导入"
Combo3.AddItem "不导入"
Combo4.AddItem "不导入"
Combo6.AddItem "不导入"
Combo7.AddItem "不导入"
Combo9.AddItem "不导入"
Combo11.AddItem "不导入"
List1.Clear
Dim db As DAO.Database
Dim oTD As DAO.TableDef
Dim f As DAO.Field
Set db = Workspaces(0).OpenDatabase(App.Path & "\TEMP\" & DD & ".NHB")
Set oTD = db.TableDefs("EXCLE")
With oTD
lCount = .Fields.Count
For lCtr = 0 To lCount - 1
Combo1.AddItem oTD.Fields(lCtr).Name
Combo2.AddItem oTD.Fields(lCtr).Name
Combo3.AddItem oTD.Fields(lCtr).Name
Combo4.AddItem oTD.Fields(lCtr).Name
Combo6.AddItem oTD.Fields(lCtr).Name
Combo7.AddItem oTD.Fields(lCtr).Name
Combo9.AddItem oTD.Fields(lCtr).Name
List1.AddItem oTD.Fields(lCtr).Name
Next
End With
db.Close
Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\TEMP\" & DD & ".NHB")
astr = "ALTER TABLE EXCLE ADD COLUMN 不导入 TEXT(15)"
db.Execute astr
Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\TEMP\" & DD & ".NHB")
db.Execute "UPDATE EXCLE SET 不导入=''"
db.Close
Combo1.ListIndex = 0
Combo2.ListIndex = 0
Combo3.ListIndex = 0
Combo4.ListIndex = 0
Combo6.ListIndex = 0
Combo7.ListIndex = 0
Combo9.ListIndex = 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -