📄
字号:
.JoinCells 0, 5, 1, 5, True
.TextMatrix(0, 6) = "付款账号"
.JoinCells 0, 6, 1, 6, True
.TextMatrix(0, 7) = "业务编号"
.JoinCells 0, 7, 1, 7, True
.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
.TextMatrix(0, 11) = "汇率"
.JoinCells 0, 11, 1, 11, True
.ColAlignment(11) = UG_ALIGNRIGHT
.TextMatrix(0, 12) = "本位币金额"
.JoinCells 0, 12, 1, 12, True
.ColAlignment(12) = UG_ALIGNRIGHT
.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 7, 8 '拆借还款，拆借还息
Label1 = IIf(iFindtype = 7, "拆借还款单", "拆借还息单")
Me.HelpContextID = IIf(iFindtype = 7, 88000041, 88000043)
'设置UFGRID，将其作为数据显示区(0)
.LargeVirtualGrid = True
.Rows = nFixRows
.Cols = 24
.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) = 2400
.ColWidth(9) = 1200
.ColWidth(12) = 1200
.ColWidth(13) = 1200
.ColWidth(14) = 2400
.ColWidth(15) = 1200
.ColWidth(16) = 1200
.ColWidth(17) = 1200
.ColWidth(18) = 1200
.ColWidth(19) = 1200
.ColWidth(20) = 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
.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
.TextMatrix(0, 11) = "汇率"
.JoinCells 0, 11, 1, 11, True
.ColAlignment(11) = UG_ALIGNRIGHT
.TextMatrix(0, 12) = "本位币金额"
.JoinCells 0, 12, 1, 12, True
.ColAlignment(12) = UG_ALIGNRIGHT
.TextMatrix(0, 13) = "已还金额"
.JoinCells 0, 13, 1, 13, True
.ColAlignment(13) = UG_ALIGNRIGHT
.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
.TextMatrix(0, 21) = "制单"
.JoinCells 0, 21, 1, 21, True
.TextMatrix(0, 22) = "审核"
.JoinCells 0, 22, 1, 22, True
.TextMatrix(0, 23) = "记账"
.JoinCells 0, 23, 1, 23, True
.HeadFont.Name = "宋体"
.HeadBackColor = &H8000000E
.HeadFont.Size = 9
.HeadFont.Bold = True
For i = 0 To 23
frmItem.mCollectColWidth.Add UfGridADO1.ColWidth(i), CStr(i)
Next i
Case 9 '利息单
Label1 = "利息单"
Me.HelpContextID = 88000049
'设置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) = 2600
.ColWidth(6) = 1500
.ColWidth(7) = 2100
.ColWidth(8) = 2400
.ColWidth(9) = 1200
.ColWidth(12) = 1200
.ColWidth(13) = 2100
.ColWidth(14) = 1200
.ColWidth(15) = 1200
.ColWidth(16) = 1200
.ColWidth(17) = 1200
.ColWidth(18) = 7000
.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
.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
.TextMatrix(0, 11) = "汇率"
.JoinCells 0, 11, 1, 11, True
.ColAlignment(11) = UG_ALIGNRIGHT
.TextMatrix(0, 12) = "本位币金额"
.JoinCells 0, 12, 1, 12, True
.ColAlignment(12) = UG_ALIGNRIGHT
.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
.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
End Select
End With
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
With DoUnloadInfo
Select Case iFindtype
Case 0
If .blnYhdk Then Cancel = True
Case 1
If .blnNbdk Then Cancel = True
Case 2
If .blnYhdk_hk Then Cancel = True
Case 3
If .blnNbdk_hk Then Cancel = True
Case 4
If .blnYhdk_hx Then Cancel = True
Case 5
If .blnNbdk_hx Then Cancel = True
Case 6
If .blnNbcj Then Cancel = True
Case 7
If .blnNbcj_hk Then Cancel = True
Case 8
If .blnNbcj_hx Then Cancel = True
Case 9
If .blnLxd Then Cancel = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -