📄
字号:
.Buttons("xz").Enabled = True '新增
.Buttons("sc").Enabled = True '删除
End If
'设置审核弃审按钮状态
Call Sub_CheckStatus
'设置文本框录入状态
Call Sub_LrtextStatus(False)
Case "20" '新增单据(（录入）新增一张单据 、（列表）新增一张单据)
'工具条
.Buttons("dy").Enabled = False '打印
.Buttons("yl").Enabled = False '预览
.Buttons("xz").Enabled = False '新增
.Buttons("xg").Enabled = False '修改
.Buttons("sc").Enabled = False '删除
.Buttons("zh").Enabled = True '增行
.Buttons("sh").Enabled = True '删行
.Buttons("bc").Enabled = True '保存
.Buttons("fq").Enabled = True '放弃
.Buttons("shsh").Enabled = False '审核
.Buttons("shqs").Enabled = False '弃审
.Buttons("first").Enabled = False '首张
.Buttons("prev").Enabled = False '上张
.Buttons("next").Enabled = False '下张
.Buttons("last").Enabled = False '末张
.Buttons("bz").Enabled = True '帮助
.Buttons("fh").Enabled = True '退出
'红、蓝字标实状态
Opt_Word(0).Enabled = True
Opt_Word(1).Enabled = True
Opt_Word(1).Value = True
'设置文本框录入状态
Call Sub_LrtextStatus(True)
Case "30" '修改(（录入）调入修改功能、（列表）调入修改功能)
'工具条
.Buttons("dy").Enabled = False '打印
.Buttons("yl").Enabled = False '预览
.Buttons("xz").Enabled = False '新增
.Buttons("xg").Enabled = False '修改
.Buttons("sc").Enabled = False '删除
.Buttons("bc").Enabled = True '保存
.Buttons("fq").Enabled = True '放弃
.Buttons("shsh").Enabled = False '审核
.Buttons("shqs").Enabled = False '弃审
.Buttons("first").Enabled = False '首张
.Buttons("prev").Enabled = False '上张
.Buttons("next").Enabled = False '下张
.Buttons("last").Enabled = False '末张
.Buttons("bz").Enabled = True '帮助
.Buttons("fh").Enabled = True '退出
If Xt_XtJc Then
.Buttons("zh").Enabled = False '增行
.Buttons("sh").Enabled = False '删行
'红、蓝字标实状态
Opt_Word(0).Enabled = False
Opt_Word(1).Enabled = False
Else
.Buttons("zh").Enabled = True '增行
.Buttons("sh").Enabled = True '删行
'红、蓝字标实状态
Opt_Word(0).Enabled = True
Opt_Word(1).Enabled = True
End If
'设置文本框录入状态
Call Sub_LrtextStatus(True)
End Select
End With
End Sub
Private Sub Sub_LrtextStatus(TextEnabled As Boolean) '设置录入文本框状态
'录入文本框状态设置
If TextEnabled Then
For Jsqte = Max_Text_Index To 0 Step -1
'判断文本框是否可编辑
If Textboolean(Jsqte, 5) Then
LrText(Jsqte).Enabled = True
Else
LrText(Jsqte).Enabled = False
End If
Next Jsqte
Else
For Jsqte = Max_Text_Index To 0 Step -1
LrText(Jsqte).Enabled = False
Next Jsqte
End If
If Xt_XtJc Then
For Jsqte = Max_Text_Index To 0 Step -1
LrText(Jsqte).Enabled = False
Next Jsqte
End If
'制单人、审核人、记帐人设置为false
LrText(2).Enabled = False
If Lab_OperStatus = "3" Then
LrText(1).Enabled = False
End If
LrText(10).Enabled = False
LrText(11).Enabled = False
LrText(12).Enabled = False
End Sub
Private Sub Sub_CheckStatus() '设置审核弃审按钮状态(亦可设置其他动作按钮状态)
'根据当前单据状态来确定审核弃审按钮状态
If Trim(LrText(11).Text) = "" And Trim(LrText(12).Text) = "" Then
Tlb_Action.Buttons("shsh").Enabled = True '审核
Else
Tlb_Action.Buttons("shsh").Enabled = False '审核
End If
If Trim(LrText(11).Text) <> "" And Trim(LrText(12).Text) = "" Then
Tlb_Action.Buttons("shqs").Enabled = True '弃审
Else
Tlb_Action.Buttons("shqs").Enabled = False '弃审
End If
If Trim(LrText(10).Text) = "" Then
Tlb_Action.Buttons("shsh").Enabled = False '审核
Tlb_Action.Buttons("shqs").Enabled = False '弃审
End If
End Sub
Private Sub Wbkcl() '文本框录入之前处理(根据实际情况)
Dim xswbrr As String
With WglrGrid
Zdlrqnr = Trim(.Text)
xswbrr = Trim(.Text)
If GridBoolean(.Col, 3) Then '列表框录入
'填充列表框程序
Call FillCombo(YdCombo, GridStr(.Col, 5), xswbrr, 0)
Else
Wbkbhlock = True
'====以下为用户自定义
Ydtext.Text = xswbrr
'====以上为用户自定义
Wbkbhlock = False
Ydtext.SelStart = Len(Ydtext.Text)
End If
End With
End Sub
Private Function sjzdyxxpd(Dqpdwgh As Long, Dqpdwgl As Long) As Boolean '录入数据字段有效性判断,同时进行字段录入事后处理
'函数参数:Dqpdwgh, Dqpdwgl 当前要判断网格单元所处行列值
Dim Str_JudgeText As String '临时有效性判断字段内容
Dim Coljsq As Long '临时列计数器
Dim Rectemp As New ADODB.Recordset '临时使用动态集
Dim SqlStr As String '临时使用查询字符串
With WglrGrid
'非录入状态或非数据行则其有效性为合法
If Yxxpdlock Or .Row < .FixedRows Then
sjzdyxxpd = True
Exit Function
End If
'取得当前要判断字段内容
Str_JudgeText = Trim(.TextMatrix(Dqpdwgh, Dqpdwgl))
'根据不同字段进行相应的处理(依据其逻辑编号)
Select Case GridStr(Dqpdwgl, 1)
'[>>以下为自定义部分
Case "001" '存货编码
If Not Trim(Str_JudgeText) = "" Then
'1.放置字段有效性判断
SqlStr = "SELECT MNumber,MName,Model,PrimaryUnitName,PlanPrice From Gy_Material Where issale=1 and (MNumber='" & Str_JudgeText & "' Or MName='" & Str_JudgeText & "')"
Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
If Rectemp.EOF Then
Tsxx = "此存货编码不存在!"
GoTo Lrcwcl
End If
'2.放置字段事后处理程序
.TextMatrix(Dqpdwgh, Sydz("001", GridStr(), Szzls)) = Trim(Rectemp.Fields("MNumber") & "") '显示存货编码
.TextMatrix(Dqpdwgh, Sydz("002", GridStr(), Szzls)) = Trim(Rectemp.Fields("MName") & "") '显示存货名称
.TextMatrix(Dqpdwgh, Sydz("003", GridStr(), Szzls)) = Trim(Rectemp.Fields("Model") & "") '显示存货规格型号
.TextMatrix(Dqpdwgh, Sydz("004", GridStr(), Szzls)) = Trim(Rectemp.Fields("PrimaryUnitName")) '主计量单位
.TextMatrix(Dqpdwgh, Sydz("008", GridStr(), Szzls)) = Trim(Rectemp.Fields("PlanPrice")) '计划单价
'根据公式计算结果
Call Sub_JoinCount(Dqpdwgh, Sydz("004", GridStr(), Szzls)) '计划单价
Else
'3.清空相关字段
.TextMatrix(Dqpdwgh, Sydz("002", GridStr(), Szzls)) = "" '存货名称
.TextMatrix(Dqpdwgh, Sydz("003", GridStr(), Szzls)) = "" '存货规格型号
.TextMatrix(Dqpdwgh, Sydz("004", GridStr(), Szzls)) = "" '主计量单位
.TextMatrix(Dqpdwgh, Sydz("008", GridStr(), Szzls)) = "" '计划单价
.TextMatrix(Dqpdwgh, Sydz("009", GridStr(), Szzls)) = "" '计划金额
End If
Case "005" '数量
'1.放置字段有效性判断
If Not Trim(Str_JudgeText) = "" Then
If Val(Trim(Str_JudgeText)) <= 0 Then
Tsxx = "数量必须大于零!"
GoTo Lrcwcl
End If
End If
'2.放置字段事后处理程序
Call Sub_JoinCount(Dqpdwgh, Sydz("005", GridStr(), Szzls)) '数量(根据公式计算结果)
Case "006" '单价
'1.放置字段有效性判断
If Not Trim(Str_JudgeText) = "" Then
If Val(Trim(Str_JudgeText)) <= 0 Then
Tsxx = "单价必须大于零!"
GoTo Lrcwcl
End If
End If
'2.放置字段事后处理程序
Call Sub_JoinCount(Dqpdwgh, Sydz("006", GridStr(), Szzls)) '单价(根据公式计算结果)
Case "007" '金额
'1.放置字段有效性判断
If Not Trim(Str_JudgeText) = "" Then
If Val(Trim(Str_JudgeText)) <= 0 Then
Tsxx = "金额必须大于零!"
GoTo Lrcwcl
End If
End If
'2.放置字段事后处理程序
Call Sub_JoinCount(Dqpdwgh, Sydz("007", GridStr(), Szzls)) '金额(根据公式计算结果)
End Select
'字段录入正确后为零字段清空(Fixed)
Call Qkwlzd(Dqpdwgh, Dqpdwgl)
'字段录入正确后进行数据合计(Fixed)
For Coljsq = Qslz To .Cols - 1
Call Sjhj(Coljsq)
Next Coljsq
'字段有效性判断通过,将字段有效性判断加锁直至再次改变(Fixed)
sjzdyxxpd = True
Yxxpdlock = True
Exit Function
End With
Lrcwcl: '录入错误处理
With WglrGrid
'给出错误提示信息
Call Xtxxts(Tsxx, 0, 1)
'返回网格错误位置(ChangeLock避免再次引发RowColChange有效性判断),装入录入载体
Changelock = True
.Select Dqpdwgh, Dqpdwgl
Changelock = False
Call xswbk
'函数返回False
sjzdyxxpd = False
Exit Function
End With
End Function
Private Sub Sub_JoinCount(Lng_CountRow As Long, Lng_CountCol As Long) '当网格列值发生改变时,处理网格列之间的关联计算(可选)
'过程参数:Lng_CountRow,Lng_CountCol 网格改变内容所处行列值
With WglrGrid
Select Case GridStr(Lng_CountCol, 1) '判断网格列对应逻辑编号
'[>>以下为自定义部分
Case "004" '计划单价改变
'计算公式:计划单价*数量=计划金额
If Val(.TextMatrix(Lng_CountRow, Sydz("008", GridStr(), Szzls))) * Val(.TextMatrix(Lng_CountRow, Sydz("005", GridStr(), Szzls))) <> 0 Then
.TextMatrix(Lng_CountRow, Sydz("009", GridStr(), Szzls)) = Format(Val(.TextMatrix(Lng_CountRow, Sydz("008", GridStr(), Szzls))) * Val(.TextMatrix(Lng_CountRow, Sydz("005", GridStr(), Szzls))), "###0." + String(Xtjexsws, "0"))
Else
.TextMatrix(Lng_CountRow, Sydz("009", GridStr(), Szzls)) = ""
End If
Case "006" '实际单价改变
'计算公式:实际单价*数量=实际金额
If Val(.TextMatrix(Lng_CountRow, Sydz("006", GridStr(), Szzls))) * Val(.TextMatrix(Lng_CountRow, Sydz("005", GridStr(), Szzls))) <> 0 Then
.TextMatrix(Lng_CountRow, Sydz("007", GridStr(), Szzls)) = Format(Val(.TextMatrix(Lng_CountRow, Sydz("006", GridStr(), Szzls))) * Val(.TextMatrix(Lng_CountRow, Sydz("005", GridStr(), Szzls))), "##0." + String(Xtjexsws, "0"))
Else
.TextMatrix(Lng_CountRow, Sydz("007", GridStr(), Szzls)) = ""
End If
Case "005" '数量改变
' '计算公式:计划单价*数量=计划金额
If Val(.TextMatrix(Lng_CountRow, Sydz("008", GridSt⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -