📄 form27.frm
字号:
Else
a36 = grs.Fields(35)
End If
If grs.Fields(36) = 0 Then
a37 = ""
Else
a37 = grs.Fields(36)
End If
If grs.Fields(37) = 0 Then
a38 = ""
Else
a38 = grs.Fields(37)
End If
If grs.Fields(38) = 0 Then
a39 = ""
Else
a39 = grs.Fields(38)
End If
If grs.Fields(39) = 0 Then
a40 = ""
Else
a40 = grs.Fields(39)
End If
If grs.Fields(40) = 0 Then
a41 = ""
Else
a41 = grs.Fields(40)
End If
If grs.Fields(41) = 0 Then
a42 = ""
Else
a42 = grs.Fields(41)
End If
If grs.Fields(42) = 0 Then
a43 = ""
Else
a43 = grs.Fields(42)
End If
If grs.Fields(43) = 0 Then
a44 = ""
Else
a44 = grs.Fields(43)
End If
If grs.Fields(44) = 0 Then
a45 = ""
Else
a45 = grs.Fields(44)
End If
If grs.Fields(45) = 0 Then
a46 = ""
Else
a46 = grs.Fields(45)
End If
If grs.Fields(46) = 0 Then
a47 = ""
Else
a47 = grs.Fields(46)
End If
If grs.Fields(47) = 0 Then
a48 = ""
Else
a48 = grs.Fields(47).Value
End If
If grs.Fields(48) = 0 Then
a49 = ""
Else
a49 = grs.Fields(48)
End If
If grs.Fields(49) = 0 Then
a50 = ""
Else
a50 = grs.Fields(49)
End If
If grs.Fields(50) = 0 Then
a51 = ""
Else
a51 = grs.Fields(50)
End If
If grs.Fields(51) = 0 Then
a52 = ""
Else
a52 = grs.Fields(51)
End If
If grs.Fields(52) = 0 Then
a53 = ""
Else
a53 = grs.Fields(52)
End If
If grs.Fields(53) = 0 Then
a54 = ""
Else
a54 = grs.Fields(53)
End If
If grs.Fields(54) = 0 Then
a55 = ""
Else
a55 = grs.Fields(54)
End If
If grs.Fields(55) = 0 Then
a56 = ""
Else
a56 = grs.Fields(55)
End If
If grs.Fields(56) = 0 Then
a57 = ""
Else
a57 = grs.Fields(56)
End If
If grs.Fields(57) = 0 Then
a58 = ""
Else
a58 = grs.Fields(57)
End If
If grs.Fields(58) = 0 Then
a59 = ""
Else
a59 = grs.Fields(58)
End If
If grs.Fields(59) = 0 Then
a60 = ""
Else
a60 = grs.Fields(59)
End If
If grs.Fields(60) = 0 Then
a61 = ""
Else
a61 = grs.Fields(60)
End If
If grs.Fields(61) = 0 Then
a62 = ""
Else
a62 = grs.Fields(61)
End If
If grs.Fields(62) = 0 Then
a63 = ""
Else
a63 = grs.Fields(62)
End If
If grs.Fields(63) = 0 Then
a64 = ""
Else
a64 = grs.Fields(63)
End If
If grs.Fields(64) = 0 Then
a65 = ""
Else
a65 = grs.Fields(64)
End If
If grs.Fields(65) = 1 Then
a66 = ""
Else
a66 = grs.Fields(65)
End If
If grs.Fields(66) = 1 Then
a67 = ""
Else
a67 = grs.Fields(66)
End If
If grs.Fields(67) = 0 Then
a68 = ""
Else
a68 = grs.Fields(67)
End If
If grs.Fields(68) = 0 Then
a69 = ""
Else
a69 = grs.Fields(68)
End If
If grs.Fields(69) = 0 Then
a70 = ""
Else
a70 = grs.Fields(69)
End If
If grs.Fields(70) = 0 Then
a71 = ""
Else
a71 = grs.Fields(70)
End If
If grs.Fields(71) = 0 Then
a72 = ""
Else
a72 = grs.Fields(71)
End If
If grs.Fields(72) = 0 Then
a73 = ""
Else
a73 = grs.Fields(72)
End If
If grs.Fields(73) = 0 Then
a74 = ""
Else
a74 = grs.Fields(73)
End If
If grs.Fields(74) = 0 Then
a75 = ""
Else
a75 = grs.Fields(74)
End If
If grs.Fields(75) = 0 Then
a76 = ""
Else
a76 = grs.Fields(75)
End If
If grs.Fields(76) = 0 Then
a77 = ""
Else
a77 = grs.Fields(76)
End If
If grs.Fields(77) = 0 Then
a78 = ""
Else
a78 = grs.Fields(77)
End If
If grs.Fields(78) = 0 Then
a79 = ""
Else
a79 = grs.Fields(78)
End If
If grs.Fields(79) = 0 Then
a80 = ""
Else
a80 = grs.Fields(79)
End If
If grs.Fields(80) = 0 Then
a81 = ""
Else
a81 = grs.Fields(80)
End If
If grs.Fields(81) = 0 Then
a82 = ""
Else
a82 = grs.Fields(81)
End If
If grs.Fields(82) = 0 Then
a83 = ""
Else
a83 = grs.Fields(82)
End If
If grs.Fields(83) = 0 Then
a84 = ""
Else
a84 = grs.Fields(83)
End If
If grs.Fields(84) = 0 Then
a85 = ""
Else
a85 = grs.Fields(84)
End If
If grs.Fields(85) = 0 Then
a86 = ""
Else
a86 = grs.Fields(85)
End If
If grs.Fields(86) = 0 Then
a87 = ""
Else
a87 = grs.Fields(86)
End If
If grs.Fields(87) = 0 Then
a88 = ""
Else
a88 = grs.Fields(87)
End If
If grs.Fields(88) = 0 Then
a89 = ""
Else
a89 = grs.Fields(88)
End If
If grs.Fields(89) = 0 Then
a90 = ""
Else
a90 = grs.Fields(89)
End If
If grs.Fields(90) = 0 Then
a91 = ""
Else
a91 = grs.Fields(90)
End If
If grs.Fields(91) = 0 Then
a92 = ""
Else
a92 = grs.Fields(91)
End If
If grs.Fields(92) = 0 Then
a93 = ""
Else
a93 = grs.Fields(92)
End If
If grs.Fields(93) = 0 Then
a94 = ""
Else
a94 = grs.Fields(93)
End If
If grs.Fields(94) = 0 Then
a95 = ""
Else
a95 = grs.Fields(94)
End If
If grs.Fields(95) = 0 Then
a96 = ""
Else
a96 = grs.Fields(95)
End If
If grs.Fields(96) = 0 Then
a97 = ""
Else
a97 = grs.Fields(96)
End If
If grs.Fields(97) = 0 Then
a98 = ""
Else
a98 = grs.Fields(97)
End If
If grs.Fields(98) = 0 Then
a99 = ""
Else
a99 = grs.Fields(98)
End If
If grs.Fields(99) = 0 Then
a100 = ""
Else
a100 = grs.Fields(99)
End If
If grs.Fields(100) = 0 Then
a101 = ""
Else
a101 = grs.Fields(100)
End If
If grs.Fields(101) = 0 Then
a102 = ""
Else
a102 = grs.Fields(101)
End If
If grs.Fields(102) = 0 Then
a103 = ""
Else
a103 = grs.Fields(102)
End If
If grs.Fields(103) = 0 Then
a104 = ""
Else
a104 = grs.Fields(103)
End If
If grs.Fields(104) = 0 Then
a105 = ""
Else
a105 = grs.Fields(104)
End If
If grs.Fields(105) = 0 Then
a106 = ""
Else
a106 = grs.Fields(105)
End If
If grs.Fields(106) = 0 Then
a107 = ""
Else
a107 = grs.Fields(106)
End If
If grs.Fields(107) = 0 Then
a108 = ""
Else
a108 = grs.Fields(107)
End If
If grs.Fields(108) = 0 Then
a109 = ""
Else
a109 = grs.Fields(108)
End If
If grs.Fields(109) = 0 Then
a110 = ""
Else
a110 = grs.Fields(109)
End If
If grs.Fields(110) = 0 Then
a111 = ""
Else
a111 = grs.Fields(110)
End If
If grs.Fields(111) = 0 Then
a112 = ""
Else
a112 = grs.Fields(111)
End If
If grs.Fields(112) = 0 Then
a113 = ""
Else
a113 = grs.Fields(112)
End If
If grs.Fields(113) = 0 Then
a114 = ""
Else
a114 = grs.Fields(113)
End If
If grs.Fields(114) = 0 Then
a115 = ""
Else
a115 = grs.Fields(114)
End If
If grs.Fields(115) = 0 Then
a116 = ""
Else
a116 = grs.Fields(115)
End If
If grs.Fields(116) = 0 Then
a117 = ""
Else
a117 = grs.Fields(116)
End If
If grs.Fields(117) = 0 Then
a118 = ""
Else
a118 = grs.Fields(117)
End If
If grs.Fields(118) = 0 Then
a119 = ""
Else
a119 = grs.Fields(118)
End If
If grs.Fields(119) = 0 Then
a120 = ""
Else
a120 = grs.Fields(119)
End If
If grs.Fields(120) = 0 Then
a121 = ""
Else
a121 = grs.Fields(120)
End If
If grs.Fields(121) = 0 Then
a122 = ""
Else
a122 = grs.Fields(121)
End If
If grs.Fields(122) = 0 Then
a123 = ""
Else
a123 = grs.Fields(122)
End If
If grs.Fields(123) = 1 Then
a124 = ""
Else
a124 = grs.Fields(123)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -