//解决重复线问题
Dim name As String = ""
Public Function FindLine(ByVal value As String) As String
If name = value Then
Return false
Else
name = value
Return true
End If
End Function
另一种方法:
=IIF(Fields!UNIT_LEVEL_L2.Value<>Previous(Fields!UNIT_LEVEL_L2.Value),"Solid","None")
//处理三个数一个,号的问题 :
FormatNumber(number,0,0,0,-1)
12小时
把列印时间改为:=now().ToShortDateString() & Iif(Hour(TimeOfDay())<12,(" 上午 ") ,(" 下午 " & TimeOfDay().AddHours(-12)) )
24小时
把列印时间改为:="列印時間:"& now().ToShortDateString() & Iif(Hour(TimeOfDay())<12," 上午"," 下午") & TimeOfDay()
IE预览加线
=IIf(Rownumber("table11_Group3")=CountRows("table11_Group3"),"Solid","None")
判断sp里的数据是否为空
Public Function IsNothing (ByVal ACTUAL As String,ByVal TARGET As String) As String
select TARGET
case ""
return("ak47")
case " "
return("ak47")
case else
return(ACTUAL /TARGET )
end select
End Function