?? 項目.frm
字號:
VERSION 5.00
Begin VB.Form XT_TItem
BorderStyle = 1 'Fixed Single
Caption = "表頭項目"
ClientHeight = 3660
ClientLeft = 4455
ClientTop = 1500
ClientWidth = 3165
Icon = "項目.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3660
ScaleWidth = 3165
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command2
Caption = "取消(&C)"
Height = 300
Left = 2010
TabIndex = 2
Top = 3315
Width = 1120
End
Begin VB.CommandButton Command1
Caption = "確定(&O)"
Height = 300
Left = 795
TabIndex = 1
Top = 3315
Width = 1120
End
Begin VB.ListBox List_Item
Height = 3210
Left = 15
Style = 1 'Checkbox
TabIndex = 0
Top = 60
Width = 3135
End
End
Attribute VB_Name = "XT_TItem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim add_item As New Recordset
Dim Item_TF()
Dim YNRoot()
Private Sub Command1_Click()
'On Error Resume Next
Dim i As Integer: Dim CH As Integer
For i = 0 To List_Item.ListCount - 1
If List_Item.Selected(i) = True Then
CH = 1
Else
CH = 0
End If
Cw_DataEnvi.DataConnect.Execute "update Xt_text_input set Visible=" & CH & " where I_ID=" & Val(List_Item.ItemData(i))
Next i
XT_BillDesign.Command1_Click
Unload Me
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
On Error Resume Next
Dim i As Integer
i = 0
Set add_item = Cw_DataEnvi.DataConnect.Execute("select * from Xt_text_input where text_group_code='" & XT_BillDesign.Command1.Tag & "'")
ReDim YNRoot(add_item.RecordCount - 1)
Do While Not add_item.EOF
List_Item.AddItem add_item!Text_Name
'--------------
List_Item.Selected(i) = add_item!Visible
List_Item.ItemData(i) = add_item!I_ID
YNRoot(i) = Val("" & add_item!NotAllowEmpty_Type)
'---------------
add_item.MoveNext
i = i + 1
Loop
add_item.Close
End Sub
Private Sub List_Item_ItemCheck(Item As Integer)
If YNRoot(Item) <> 0 Then 'And List_Item.Selected(Item) <> True Then
List_Item.Selected(Item) = True
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -