数字为文本，并且不能改为数字列，有没有便捷的方法简化这个代码
If e.Col.Name = "学费" Then
If e.Text = "16980" OrElse e.Text = "17000" OrElse e.Text = "17250" OrElse e.Text = "17280" OrElse e.Text = "17500" OrElse e.Text = "17600" OrElse e.Text = "17800" OrElse e.Text = "18000" OrElse e.Text = "18100" OrElse e.Text = "18200" OrElse e.Text = "18500" OrElse e.Text = "18600" OrElse e.Text = "18700" OrElse e.Text = "18800" OrElse e.Text = "18900" OrElse e.Text = "19000" OrElse e.Text = "19200" OrElse e.Text = "19300" OrElse e.Text = "19500" OrElse e.Text = "19800" OrElse e.Text = "20000" OrElse e.Text = "20500" OrElse e.Text = "20800" OrElse e.Text = "20900" OrElse e.Text = "21000" OrElse e.Text = "21500" OrElse e.Text = "21600" OrElse e.Text = "21780" OrElse e.Text = "21800" OrElse e.Text = "22000" OrElse e.Text = "22500" OrElse e.Text = "22800" OrElse e.Text = "23000" OrElse e.Text = "23100" OrElse e.Text = "23250" OrElse e.Text = "23500" OrElse e.Text = "23800" OrElse e.Text = "24000" OrElse e.Text = "24500" OrElse e.Text = "24600" OrElse e.Text = "24700" OrElse e.Text = "24750" OrElse e.Text = "24800" OrElse e.Text = "25000" OrElse e.Text = "25500" OrElse e.Text = "25800" OrElse e.Text = "25900" OrElse e.Text = "26000" OrElse e.Text = "26250" OrElse e.Text = "26400" OrElse e.Text = "26500" OrElse e.Text = "26800" OrElse e.Text = "26840" OrElse e.Text = "27000" OrElse e.Text = "27500" OrElse e.Text = "27700" OrElse e.Text = "27750" OrElse e.Text = "27800" OrElse e.Text = "28000" OrElse e.Text = "28300" OrElse e.Text = "28500" OrElse e.Text = "28600" OrElse e.Text = "28800" OrElse e.Text = "29000" OrElse e.Text = "29280" OrElse e.Text = "29600" OrElse e.Text = "29700" OrElse e.Text = "29800" OrElse e.Text = "30000" OrElse e.Text = "30800" OrElse e.Text = "31000" OrElse e.Text = "31800" OrElse e.Text = "31900" OrElse e.Text = "32000" OrElse e.Text = "32500" OrElse e.Text = "32800" OrElse e.Text = "33000" OrElse e.Text = "33800" OrElse e.Text = "33900" OrElse e.Text = "34000" OrElse e.Text = "34900" OrElse e.Text = "35000" OrElse e.Text = "35900" OrElse e.Text = "35995" OrElse e.Text = "36000" OrElse e.Text = "36800" OrElse e.Text = "36900" OrElse e.Text = "37000" OrElse e.Text = "38000" OrElse e.Text = "38500" OrElse e.Text = "38800" OrElse e.Text = "39000" OrElse e.Text = "39800" OrElse e.Text = "39900" OrElse e.Text = "40000" OrElse e.Text = "41000" OrElse e.Text = "41544" OrElse e.Text = "42000" OrElse e.Text = "42500" OrElse e.Text = "43500" OrElse e.Text = "43800" OrElse e.Text = "44500" OrElse e.Text = "45000" OrElse e.Text = "45600" OrElse e.Text = "45800" OrElse e.Text = "45900" OrElse e.Text = "46000" OrElse e.Text = "46600" OrElse e.Text = "48000" OrElse e.Text = "49600" OrElse e.Text = "49800" OrElse e.Text = "50000" OrElse e.Text = "51000" OrElse e.Text = "52000" OrElse e.Text = "54900" OrElse e.Text = "55000" OrElse e.Text = "56000" OrElse e.Text = "57000" OrElse e.Text = "58000" OrElse e.Text = "59800" OrElse e.Text = "60000" OrElse e.Text = "62000" OrElse e.Text = "63000" OrElse e.Text = "65000" OrElse e.Text = "68000" OrElse e.Text = "69000" OrElse e.Text = "70000" OrElse e.Text = "71000" OrElse e.Text = "72000" OrElse e.Text = "73000" OrElse e.Text = "75000" OrElse e.Text = "76000" OrElse e.Text = "78000" OrElse e.Text = "79800" OrElse e.Text = "80000" OrElse e.Text = "85000" OrElse e.Text = "88000" OrElse e.Text = "90000" OrElse e.Text = "95000" OrElse e.Text = "98000" OrElse e.Text = "100000" OrElse e.Text = "108000" OrElse e.Text = "1600000" Then
e.Style = "小于零值"
End If
End If
谢谢老师！
[此贴子已经被作者于2024/5/2 16:31:35编辑过]
加好友 
发短信
Post By：2024/5/2 16:31:00 [只看该作者]
