主题：帮我看看这个代码错在哪里，谢谢

Dim chk As WinForm.CheckBox
chk = Forms("工资修改").Controls("是否满勤")
Dim jkje As WinForm.TextBox = e.Form.Controls("TB借款金额")
Dim kcfk As WinForm.TextBox = e.Form.Controls("TB扣除罚款")
Dim shbx As WinForm.TextBox = e.Form.Controls("TB社会保险")
Dim hjkc As WinForm.Label = e.Form.Controls("扣除金额")
Dim v1 As Double = Val(jkje.Text)
Dim v2 As Double = Val(kcfk.Text)
Dim v3 As Double = Val(shbx.Text)
Dim scbt As WinForm.TextBox = e.Form.Controls("TB生产补贴")
Dim clbt As WinForm.TextBox = e.Form.Controls("TB差旅补贴")
Dim fybx As WinForm.TextBox = e.Form.Controls("TB费用报销")
Dim btje As WinForm.Label = e.Form.Controls("补贴金额")
Dim v4 As Double = Val(scbt.Text)
Dim v5 As Double = Val(clbt.Text)
Dim v6 As Double = Val(fybx.Text)
Dim gzlb2 As WinForm.Label = e.Form.Controls("工资类别")
Dim tbgz As WinForm.TextBox = e.Form.Controls("TB工资数据")
Dim gzss As WinForm.TextBox = e.Form.Controls("TB工作时间")
Dim gzts As WinForm.TextBox = e.Form.Controls("TB工作天数")
Dim yfgz As WinForm.Label = e.Form.Controls("应发工资")
Dim mqts As WinForm.TextBox = e.Form.Controls("TB天数")
Dim sfgz As WinForm.Label = e.Form.Controls("实发工资")
Dim xg As WinForm.TextBox = e.Form.Controls("TB工资修改")
Dim g1 As Double = Val(tbgz.Text)
Dim g2 As Double = Val(gzss.Text)
Dim g3 As Double = Val(gzts.Text)
Dim g4 As Double = Val(mqts.Text)
Dim j1 As Double = Val(xg.Text)
Dim d As Double
Dim d2 As Double
Dim d3 As Double
Dim d4 As Double
Dim d5 As Double
Dim d6 As Double
Dim d7 As Double
Dim d8 As Double
d = v1 + v2 + v3
d2 = v4 + v5 + v6
d3 = g1 * g2
d4 = g1 * g2 - d + d2
d5 = g1 / g4 * g3
d6 = g1 / g4 * g3 - d + d2
d7 = g1
d8 = g1 - d + d2
If d > 0 Then
    e.Form.Controls("扣除金额").Visible=True
    e.Form.Controls("L扣元").Visible=True
    hjkc.text =format(d,"n")
Else
    e.Form.Controls("扣除金额").Visible=False
    e.Form.Controls("L扣元").Visible=False
End If
If d2 > 0 Then
    e.Form.Controls("补贴金额").Visible=True
    e.Form.Controls("L补元").Visible=True
    btje.text =format(d2,"n")
Else
    e.Form.Controls("补贴金额").Visible=False
    e.Form.Controls("L补元").Visible=False
End If
If gzlb2.text= "计时工资"  Then
    If xg.text ="" Then
        If d3 > 0 Or d4 > 0 Then
            e.Form.Controls("应发工资").Visible=True
            e.Form.Controls("实发工资").Visible=True
            e.Form.Controls("L1元").Visible=True
            e.Form.Controls("L实元").Visible=True
            yfgz.text =format(d3,"n")
            sfgz.text =format(d4,"n")
        Else
            e.Form.Controls("应发工资").Visible=False
            e.Form.Controls("L1元").Visible=False
            e.Form.Controls("实发工资").Visible=False
            e.Form.Controls("L1元").Visible=False
        End If
    Else
        e.Form.Controls("应发工资").Visible=True
        e.Form.Controls("实发工资").Visible=True
        e.Form.Controls("L1元").Visible=True
        e.Form.Controls("L实元").Visible=True
        yfgz.text =format(d3,"n")
        sfgz.text = format(j1,"n")
    End If
Else
    If gzlb2.text= "固定工资" Then
        If xg.text ="" Then
            If d5 >0 Or d6 > 0 Or d7 > 0 Or d8 > 0 Then
                If chk.Checked = True Then
                    e.Form.Controls("应发工资").Visible=True
                    e.Form.Controls("实发工资").Visible=True
                    e.Form.Controls("L1元").Visible=True
                    e.Form.Controls("L实元").Visible=True
                    yfgz.text =format(d7,"n")
                    sfgz.text =format(d8,"n")
                Else
                    e.Form.Controls("应发工资").Visible=True
                    e.Form.Controls("实发工资").Visible=True
                    e.Form.Controls("L1元").Visible=True
                    e.Form.Controls("L实元").Visible=True
                    yfgz.text =format(d5,"n")
                    sfgz.text =format(d6,"n")
                End If
            Else
                e.Form.Controls("应发工资").Visible=False
                e.Form.Controls("L1元").Visible=False
                e.Form.Controls("实发工资").Visible=False
                e.Form.Controls("L1元").Visible=False
            End If
        Else
            e.Form.Controls("应发工资").Visible=True
            e.Form.Controls("实发工资").Visible=True
            e.Form.Controls("L1元").Visible=True
            e.Form.Controls("L实元").Visible=True
            yfgz.text =format(d7,"n")
            sfgz.text = format(j1,"n")
        End If
    End If
End If

("应发工资")和("实发工资")不计算，搞不懂错在哪里了

Dim chk As WinForm.CheckBox
chk = Forms("员工工资系统").Controls("是否满勤")
Dim jkje As WinForm.TextBox = e.Form.Controls("TB借款金额")
Dim kcfk As WinForm.TextBox = e.Form.Controls("TB扣除罚款")
Dim shbx As WinForm.TextBox = e.Form.Controls("TB社会保险")
Dim hjkc As WinForm.Label = e.Form.Controls("扣除金额")
Dim v1 As Double = Val(jkje.Text)
Dim v2 As Double = Val(kcfk.Text)
Dim v3 As Double = Val(shbx.Text)

Dim scbt As WinForm.TextBox = e.Form.Controls("TB生产补贴")
Dim clbt As WinForm.TextBox = e.Form.Controls("TB差旅补贴")
Dim fybx As WinForm.TextBox = e.Form.Controls("TB费用报销")
Dim btje As WinForm.Label = e.Form.Controls("补贴金额")
Dim v4 As Double = Val(scbt.Text)
Dim v5 As Double = Val(clbt.Text)
Dim v6 As Double = Val(fybx.Text)

Dim gzlb As WinForm.Label = e.Form.Controls("工资类别")
Dim tbgz As WinForm.TextBox = e.Form.Controls("TB工资数据")
Dim gzss As WinForm.TextBox = e.Form.Controls("TB工作时间")
Dim gzts As WinForm.TextBox = e.Form.Controls("TB工作天数")
Dim yfgz As WinForm.Label = e.Form.Controls("应发工资")
Dim mqts As WinForm.TextBox = e.Form.Controls("TB天数")
Dim sfgz As WinForm.Label = e.Form.Controls("实发工资")
Dim xg As WinForm.TextBox = e.Form.Controls("TB工资修改")
Dim g2 As Double = Val(tbgz.Text)
Dim g3 As Double = Val(gzss.Text)
Dim g4 As Double = Val(gzts.Text)
Dim g5 As Double = Val(mqts.Text)
Dim j1 As Double = Val(xg.Text)

Dim k As Double
Dim d As Double
Dim d2 As Double
Dim d3 As Double
Dim d4 As Double
Dim d5 As Double
Dim d6 As Double
Dim d7 As Double
Dim d8 As Double

If chk.Checked = True Then
    k = v2
Else
    k = v2 + 100
End If

d = v1 + k + v3
d2 = v4 + v5 + v6
d3 = g2 * g3
d4 = g2 * g3 - d + d2
d5 = g2 / g5 * g4
d6 = g2 / g5 * g4 - d + d2
d7 = g2
d8 = g2 - d + d2

实列太大，怎么办？

有，整个程序发你QQ了，你收一下吧

Dim chk As WinForm.CheckBox
chk = Forms("员工工资系统").Controls("是否满勤")
Dim jkje As WinForm.TextBox = e.Form.Controls("TB借款金额")
Dim kcfk As WinForm.TextBox = e.Form.Controls("TB扣除罚款")
Dim shbx As WinForm.TextBox = e.Form.Controls("TB社会保险")
Dim hjkc As WinForm.Label = e.Form.Controls("扣除金额")
Dim v1 As Double = Val(jkje.Text)
Dim v2 As Double = Val(kcfk.Text)
Dim v3 As Double = Val(shbx.Text)
MessageBox.Show(30)
Dim scbt As WinForm.TextBox = e.Form.Controls("TB生产补贴")
Dim clbt As WinForm.TextBox = e.Form.Controls("TB差旅补贴")
Dim fybx As WinForm.TextBox = e.Form.Controls("TB费用报销")
Dim btje As WinForm.Label = e.Form.Controls("补贴金额")
Dim v4 As Double = Val(scbt.Text)
Dim v5 As Double = Val(clbt.Text)
Dim v6 As Double = Val(fybx.Text)
MessageBox.Show(31)
Dim gzlb As WinForm.Label = e.Form.Controls("工资类别")
Dim tbgz As WinForm.TextBox = e.Form.Controls("TB工资数据")
Dim gzss As WinForm.TextBox = e.Form.Controls("TB工作时间")
Dim gzts As WinForm.TextBox = e.Form.Controls("TB工作天数")
Dim yfgz As WinForm.Label = e.Form.Controls("应发工资")
Dim mqts As WinForm.TextBox = e.Form.Controls("TB天数")
Dim sfgz As WinForm.Label = e.Form.Controls("实发工资")
Dim xg As WinForm.TextBox = e.Form.Controls("TB工资修改")
MessageBox.Show(32)
Dim g1 As Double = Val(tbgz.Text)
Dim g2 As Double = Val(gzss.Text)
Dim g3 As Double = Val(gzts.Text)
Dim g4 As Double = Val(mqts.Text)
Dim j1 As Double = Val(xg.Text)

Dim k As Double
Dim d As Double
Dim d2 As Double
Dim d3 As Double
Dim d4 As Double
Dim d5 As Double
Dim d6 As Double
Dim d7 As Double
Dim d8 As Double

If chk.Checked = True Then
    k = v2
MessageBox.Show(1)
Else
    k = v2 + 100
MessageBox.Show(2)
End If

d = v1 + k + v3
MessageBox.Show(3)
d2 = v4 + v5 + v6
MessageBox.Show(4)
d3 = g1 * g2
MessageBox.Show(5)
d4 = g1 * g2 - d + d2
MessageBox.Show(6)
d5 = g1 / g4 * g3
MessageBox.Show(7)
d6 = g1 / g4 * g3 - d + d2
MessageBox.Show(8)
d7 = g1
MessageBox.Show(9)
d8 = g1 - d + d2
MessageBox.Show(10)

If d > 0 Then
    e.Form.Controls("扣除金额").Visible=True
    e.Form.Controls("L扣元").Visible=True
    hjkc.text =format(d,"n")
Else
    e.Form.Controls("扣除金额").Visible=False
    e.Form.Controls("L扣元").Visible=False
End If
If d2 > 0 Then
    e.Form.Controls("补贴金额").Visible=True
    e.Form.Controls("L补元").Visible=True
    btje.text =format(d2,"n")
Else
    e.Form.Controls("补贴金额").Visible=False
    e.Form.Controls("L补元").Visible=False
End If

If  gzlb.text= "计时工资" Then
    If xg.text ="" Then
        If d3 > 0  Or d4 > 0 Then
            e.Form.Controls("应发工资").Visible=True
            e.Form.Controls("实发工资").Visible=True
            e.Form.Controls("L1元").Visible=True
            e.Form.Controls("L实元").Visible=True
            Tables("工资报表").Current("正常工资") = format(d3,"n")
MessageBox.Show(11)
            Tables("工资报表").Current("实发工资") =format(d4,"n")
MessageBox.Show(12)
        Else
            e.Form.Controls("应发工资").Visible=False
            e.Form.Controls("L1元").Visible=False
            e.Form.Controls("实发工资").Visible=False
            e.Form.Controls("L1元").Visible=False
        End If
    Else
        e.Form.Controls("应发工资").Visible=True
        e.Form.Controls("实发工资").Visible=True
        e.Form.Controls("L1元").Visible=True
        e.Form.Controls("L实元").Visible=True
        Tables("工资报表").Current("正常工资") = format(d3,"n")
MessageBox.Show(13)
        Tables("工资报表").Current("实发工资") =format(j1,"n")
MessageBox.Show(14)
    End If
Else
    If gzlb.text= "固定工资" Then
        If chk.Checked = True Then
            If xg.text ="" Then
                If d7 > 0  Or d8 > 0 Then
                    e.Form.Controls("应发工资").Visible=True
                    e.Form.Controls("实发工资").Visible=True
                    e.Form.Controls("L1元").Visible=True
                    e.Form.Controls("L实元").Visible=True
                    Tables("工资报表").Current("正常工资") = format(d7,"n")
MessageBox.Show(15)
                    Tables("工资报表").Current("实发工资") =format(d8,"n")
MessageBox.Show(16)
                Else
                    e.Form.Controls("应发工资").Visible=False
                    e.Form.Controls("L1元").Visible=False
                    e.Form.Controls("实发工资").Visible=False
                    e.Form.Controls("L1元").Visible=False
                End If
            Else
                e.Form.Controls("应发工资").Visible=True
                e.Form.Controls("实发工资").Visible=True
                e.Form.Controls("L1元").Visible=True
                e.Form.Controls("L实元").Visible=True
                Tables("工资报表").Current("正常工资") = format(d7,"n")
MessageBox.Show(17)
                Tables("工资报表").Current("实发工资") =format(j1,"n")
MessageBox.Show(18)
            End If
        Else
            If xg.text ="" Then
                If d5 > 0  Or d6 > 0 Then
                    e.Form.Controls("应发工资").Visible=True
                    e.Form.Controls("实发工资").Visible=True
                    e.Form.Controls("L1元").Visible=True
                    e.Form.Controls("L实元").Visible=True
                    Tables("工资报表").Current("正常工资") = format(d5,"n")
MessageBox.Show(19)
                    Tables("工资报表").Current("实发工资") =format(d6,"n")
MessageBox.Show(20)
                Else
                    e.Form.Controls("应发工资").Visible=False
                    e.Form.Controls("L1元").Visible=False
                    e.Form.Controls("实发工资").Visible=False
                    e.Form.Controls("L1元").Visible=False
                End If
            Else
                e.Form.Controls("应发工资").Visible=True
                e.Form.Controls("实发工资").Visible=True
                e.Form.Controls("L1元").Visible=True
                e.Form.Controls("L实元").Visible=True
                Tables("工资报表").Current("正常工资") = format(d5,"n")
MessageBox.Show(21)
                Tables("工资报表").Current("实发工资") =format(j1,"n")
MessageBox.Show(22)
            End If
        End If
    End If
End If

这样吗？怎么没有反映啊

你帮我看看，在员工工资系统，点工资报表会非法操作，并关闭，还有，工资修改窗口扣除罚款，输入后不能去掉

此主题相关图片如下：cw.jpg

在员工工资系统，点击报表，把滑块拉最下面，双击工资报表会非法操作，并关闭