Dim zc As Integer = CInt(Forms("报酬").Controls("TextBox1").Text) '在册 Dim jt As Integer = CInt(Forms("报酬").Controls("TextBox8").Text) '津贴 Dim jtb As Double jtb = IIf(jt=0,0,jt/zc) Forms("报酬").Controls("TextBox15").Value = jtb) Forms("报酬").Controls("TextBox15").FormatString = "#0.00%"