📄
字号:
If UfGridADO1.Rows >= 3 Then
On Error Resume Next
UfGridADO1.Row = 2
End If
End Sub
Private Sub DoUnload(blnLoad As Boolean)
With DoUnloadInfo
Select Case iFindtype
Case 0
.blnYhdk = blnLoad
Case 1
.blnNbdk = blnLoad
Case 2
.blnYhdk_hk = blnLoad
Case 3
.blnNbdk_hk = blnLoad
Case 4
.blnYhdk_hx = blnLoad
Case 5
.blnNbdk_hx = blnLoad
Case 6
.blnNbcj = blnLoad
Case 7
.blnNbcj_hk = blnLoad
Case 8
.blnNbcj_hx = blnLoad
Case 9
.blnLxd = blnLoad
End Select
End With
End Sub
'********************************************************************
'*函数说明: 初始化 Grid *
'*参 数: *
'* *
'*返回值 : *
'*********************************************************************
Public Sub InitForm()
Dim i As Long
Set frmItem = New frmRptItem
Set frmItem.mCollectColWidth = New Collection
With Me.UfGridADO1
Select Case iFindtype
Case 0, 1 ' 银行贷款，内部贷款
Label1 = IIf(iFindtype = 0, "银行贷款单", "内部贷款单")
Me.HelpContextID = IIf(iFindtype = 0, 88000027, 88000029)
'设置UFGRID，将其作为数据显示区(0)
.LargeVirtualGrid = True
.Rows = nFixRows
.Cols = 22
.FixedCols = 3
.ColWidth(0) = 600
For i = 1 To 2
.ColWidth(i) = 300
Next i
.ColWidth(3) = 2600
.ColWidth(4) = 1500
.ColWidth(5) = 2100
.ColWidth(6) = 2400
.ColWidth(7) = 1400
.ColWidth(10) = 1400
.ColWidth(11) = 1200
.ColWidth(12) = 1200
.ColWidth(13) = 1200
.ColWidth(14) = 7000
.ColWidth(15) = 1200
.ColWidth(16) = 1200
.ColWidth(17) = 1200
.FixedRows = nFixRows
'初始化表头及对齐方式
.TextMatrix(0, 0) = "业务日期"
.TextMatrix(0, 1) = "业务日期"
.TextMatrix(0, 2) = "业务日期"
.JoinCells 0, 0, 0, 2, True
.ColAlignment(0) = UG_ALIGNCENTER
.ColAlignment(1) = UG_ALIGNRIGHT
.ColAlignment(2) = UG_ALIGNRIGHT
.TextMatrix(1, 0) = "年"
.TextMatrix(1, 1) = "月"
.TextMatrix(1, 2) = "日"
.TextMatrix(0, 3) = "单位名称"
.JoinCells 0, 3, 1, 3, True
.TextMatrix(0, 4) = "账户号"
.JoinCells 0, 4, 1, 4, True
.TextMatrix(0, 5) = "业务编号"
.JoinCells 0, 5, 1, 5, True
.TextMatrix(0, 6) = "摘要"
.JoinCells 0, 6, 1, 6, True
.TextMatrix(0, 7) = "贷款金额"
.JoinCells 0, 7, 1, 7, True
.ColAlignment(7) = UG_ALIGNRIGHT
.TextMatrix(0, 8) = "币别"
.JoinCells 0, 8, 1, 8, True
.TextMatrix(0, 9) = "汇率"
.JoinCells 0, 9, 1, 9, True
.ColAlignment(9) = UG_ALIGNRIGHT
.TextMatrix(0, 10) = "本位币金额"
.JoinCells 0, 10, 1, 10, True
.ColAlignment(10) = UG_ALIGNRIGHT
'初始化表头及对齐方式
.TextMatrix(0, 11) = "还款日期"
.JoinCells 0, 11, 1, 11, True
.TextMatrix(0, 12) = "利率代码"
.JoinCells 0, 12, 1, 12, True
.TextMatrix(0, 13) = "结息日代码"
.JoinCells 0, 13, 1, 13, True
.TextMatrix(0, 14) = "逾期计息方式"
.JoinCells 0, 14, 1, 14, True
.TextMatrix(0, 15) = "已还金额"
.JoinCells 0, 15, 1, 15, True
.ColAlignment(15) = UG_ALIGNRIGHT
.TextMatrix(0, 16) = "担保金额"
.JoinCells 0, 16, 1, 16, True
.ColAlignment(16) = UG_ALIGNRIGHT
.TextMatrix(0, 17) = "担保单位"
.JoinCells 0, 17, 1, 17, True
.TextMatrix(0, 18) = "经手人"
.JoinCells 0, 18, 1, 18, True
.TextMatrix(0, 19) = "制单"
.JoinCells 0, 19, 1, 19, True
.TextMatrix(0, 20) = "审核"
.JoinCells 0, 20, 1, 20, True
.TextMatrix(0, 21) = "记账"
.JoinCells 0, 21, 1, 21, True
.HeadFont.Name = "宋体"
.HeadBackColor = &H8000000E
.HeadFont.Size = 9
.HeadFont.Bold = True
For i = 0 To 21
frmItem.mCollectColWidth.Add UfGridADO1.ColWidth(i), CStr(i)
Next i
Case 2, 3, 4, 5 ' 银行还款（还息），内部还款（还息）
Label1 = IIf(iFindtype = 2, "银行还款单", IIf(iFindtype = 3, "内部还款单", IIf(iFindtype = 4, "银行还息单", "内部还息单")))
Me.HelpContextID = IIf(iFindtype = 2, 88000033, IIf(iFindtype = 3, 88000037, IIf(iFindtype = 4, 88000035, 88000039)))
'设置UFGRID，将其作为数据显示区(0)
.LargeVirtualGrid = True
.Rows = nFixRows
.Cols = 21
.FixedCols = 3
.ColWidth(0) = 600
For i = 1 To 2
.ColWidth(i) = 300
Next i
.ColWidth(3) = 2600
.ColWidth(4) = 1500
.ColWidth(5) = 2100
.ColWidth(6) = 2400
.ColWidth(7) = 1200
.ColWidth(10) = 1200
.ColWidth(11) = 1200
.ColWidth(12) = 1200
.ColWidth(13) = 2600
.ColWidth(14) = 1200
.ColWidth(15) = 1200
.ColWidth(16) = 1200
.ColWidth(17) = 1200
.FixedRows = nFixRows
'初始化表头及对齐方式
.TextMatrix(0, 0) = "业务日期"
.TextMatrix(0, 1) = "业务日期"
.TextMatrix(0, 2) = "业务日期"
.JoinCells 0, 0, 0, 2, True
.ColAlignment(0) = UG_ALIGNCENTER
.ColAlignment(1) = UG_ALIGNRIGHT
.ColAlignment(2) = UG_ALIGNRIGHT
.TextMatrix(1, 0) = "年"
.TextMatrix(1, 1) = "月"
.TextMatrix(1, 2) = "日"
.TextMatrix(0, 3) = "单位名称"
.JoinCells 0, 3, 1, 3, True
.TextMatrix(0, 4) = "账户号"
.JoinCells 0, 4, 1, 4, True
.TextMatrix(0, 5) = "业务编号"
.JoinCells 0, 5, 1, 5, True
.TextMatrix(0, 6) = "摘要"
.JoinCells 0, 6, 1, 6, True
.TextMatrix(0, 7) = "还款金额"
.JoinCells 0, 7, 1, 7, True
.ColAlignment(7) = UG_ALIGNRIGHT
.TextMatrix(0, 8) = "币别"
.JoinCells 0, 8, 1, 8, True
.TextMatrix(0, 9) = "汇率"
.JoinCells 0, 9, 1, 9, True
.ColAlignment(9) = UG_ALIGNRIGHT
.TextMatrix(0, 10) = "本位币金额"
.JoinCells 0, 10, 1, 10, True
.ColAlignment(10) = UG_ALIGNRIGHT
.TextMatrix(0, 11) = "已还金额"
.JoinCells 0, 11, 1, 11, True
.ColAlignment(11) = UG_ALIGNRIGHT
.TextMatrix(0, 12) = "付款方式"
.JoinCells 0, 12, 1, 12, True
.TextMatrix(0, 13) = "联接贷款项"
.JoinCells 0, 13, 1, 13, True
.TextMatrix(0, 14) = "借款日期"
.JoinCells 0, 14, 1, 14, True
.TextMatrix(0, 15) = "还款日期"
.JoinCells 0, 15, 1, 15, True
.TextMatrix(0, 16) = "利率代码"
.JoinCells 0, 16, 1, 16, True
.TextMatrix(0, 17) = "经办人"
.JoinCells 0, 17, 1, 17, True
.TextMatrix(0, 18) = "制单"
.JoinCells 0, 18, 1, 18, True
.TextMatrix(0, 19) = "审核"
.JoinCells 0, 19, 1, 19, True
.TextMatrix(0, 20) = "记账"
.JoinCells 0, 20, 1, 20, True
.HeadFont.Name = "宋体"
.HeadBackColor = &H8000000E
.HeadFont.Size = 9
.HeadFont.Bold = True
For i = 0 To 20
frmItem.mCollectColWidth.Add UfGridADO1.ColWidth(i), CStr(i)
Next i
Case 6 ' 内部拆借
Label1 = "内部拆借单"
Me.HelpContextID = 88000031
'设置UFGRID，将其作为数据显示区(0)
.LargeVirtualGrid = True
.Rows = nFixRows
.Cols = 21
.FixedCols = 3
.ColWidth(0) = 600
For i = 1 To 2
.ColWidth(i) = 300
Next i
.ColWidth(3) = 2600
.ColWidth(4) = 1500
.ColWidth(5) = 2600
.ColWidth(6) = 1500
.ColWidth(7) = 2100
.ColWidth(8) = 3000
.ColWidth(9) = 1200
.ColWidth(12) = 1200
.ColWidth(13) = 1200
.ColWidth(14) = 1200
.FixedRows = nFixRows
'初始化表头及对齐方式
.TextMatrix(0, 0) = "业务日期"
.TextMatrix(0, 1) = "业务日期"
.TextMatrix(0, 2) = "业务日期"
.JoinCells 0, 0, 0, 2, True
.ColAlignment(0) = UG_ALIGNCENTER
.ColAlignment(1) = UG_ALIGNRIGHT
.ColAlignment(2) = UG_ALIGNRIGHT
.TextMatrix(1, 0) = "年"
.TextMatrix(1, 1) = "月"
.TextMatrix(1, 2) = "日"
.TextMatrix(0, 3) = "拆入部门"
.JoinCells 0, 3, 1, 3, True
.TextMatrix(0, 4) = "收款账号"
.JoinCells 0, 4, 1, 4, True
.TextMatrix(0, 5) = "拆出部门"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -