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
("应发工资")和("实发工资")不计算,搞不懂错在哪里了