- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何判断备注型字段为空值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161853)
-- 发布时间：2021/4/1 9:53:00
-- [求助]如何判断备注型字段为空值
此主题相关图片如下：1－1_20210401095043.png
此主题相关图片如下：1－2_20210401095109.png
两种情况很诡异，怎么能判断为真空呢？
-- 发布时间：2021/4/1 9:58:00
--
代码文字发上来，不用截图
-- 发布时间：2021/4/1 10:07:00
--
Dim max As String
Dim dr As DataRow=DataTables("报名缴费").SQLFind("缴费编号 = \'201712-0003087075\'")
Dim Values() As String
Dim ksjl As String = dr("课时记录")
ksjl = ksjl.Replace(vbcrlf & vbcrlf,vbcrlf)
Values = ksjl.split(vbcrlf)
output.show(values.count)
For Each i As String In values
output.show(i)
Next
[此贴子已经被作者于2021/4/1 10:07:11编辑过]
-- 发布时间：2021/4/1 10:10:00
--
很好描述：备注型的字段内一定保存着一个“vbcrlf” 换行符号，无论如何都去不掉，不然怎么会生成一个数组的？
[此贴子已经被作者于2021/4/1 10:10:50编辑过]
-- 发布时间：2021/4/1 10:11:00
--
Dim max As String
Dim dr As DataRow=DataTables("报名缴费").SQLFind("缴费编号 = \'201712-0003087075\'")
if dr isnot nothing then
if dr.isnull("课时记录") then
msgbox("没有值")
else
Dim Values() As String
Dim ksjl As String = dr("课时记录")
ksjl = ksjl.Replace(vbcrlf & vbcrlf,vbcrlf)
Values = ksjl.split(vbcrlf)
output.show(values.count)
For Each i As String In values
output.show(i)
Next
end if
end if
[此贴子已经被作者于2021/4/1 10:10:52编辑过]