- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]今天学习华海系统里面有个段这个代码看不懂什么意思 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=153448)
-- 发布时间：2020/8/11 11:22:00
-- [求助]今天学习华海系统里面有个段这个代码看不懂什么意思
Dim r1 As Integer
Dim r2 As Integer
Dim str1 As String
Dim str2 As String
Dim t As Table = Tables("查询表.设置")
If t.Position <> 0 Then
r1 = t(t.Position,"ord")
str1 = t(t.Position,"名称")
str2 = t(t.Position-1,"名称")
If str1 IsNot Nothing And str2 IsNot Nothing Then
r2 = t.Findrow("[名称] = \'" & str1 & "\'",0,True)
t(r2,"ord") = r1-1
r2 = t.Findrow("[名称] = \'" & str2 & "\'",0,True)
t(r2,"ord") = r1
r2 = t.Findrow("[名称] = \'" & str1 & "\'",0,True)
t.Position = r2
t.sort="ord"
Else
msgbox("名称字段存在为空的记录,请更正!",64,"提示")
End If
End If
t 是一个table,没看到过table还有这样的语法操作，请教下！
[此贴子已经被作者于2020/8/11 12:02:20编辑过]
-- 发布时间：2020/8/11 14:00:00
--
参考：http://www.foxtable.com/webhelp/topics/0443.htm
-- 发布时间：2020/8/11 15:26:00
--
你这个帮助文档好像全面很多，那个章节里面我在软件自带的帮助文档里面没找到
-- 发布时间：2020/8/11 15:28:00
--
肯定有，这个2个帮助是完全一样的
此主题相关图片如下：1.png
-- 发布时间：2020/8/11 15:39:00
--
找到了，谢谢