指定行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 指定行

共有12851人关注过本帖树形打印复制链接主题：指定行

发财

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

指定行

Post By：2016/6/14 15:34:00 [只看该作者]

Tables("明细表").Sort = "序号,对应 DESC"

Dim ss As String = e.Form.Controls("TextBox1").text

With Tables("明细表")

Dim r As Integer

r = .Find(" & ss & " ,.RowSel + 1, "姓名", False, False, True)

messagebox.show(r)

If r > - 1 Then '如果找到符合条件的行

.Position = r '则选择该行

End If

End With

发财

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2016/6/14 15:34:00 [只看该作者]

请问老师：该行代码应如何改：r = .Find(" & ss & " ,.RowSel + 1, "姓名", False, False, True)　？

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/14 15:36:00 [只看该作者]

r = .FindRow("姓名 = '" & ss & "'", .RowSel + 1, true)　

发财

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2016/6/15 15:30:00 [只看该作者]

用代码Forms("数据表").Controls("Table1").Table.AllowEdit = False　　对整个表禁止编辑，当要对其中一行进行修改编辑或新增一行录入时，请问老师应添加什么代码？

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/15 15:40:00 [只看该作者]

把行锁住即可，如

Forms("数据表").Controls("Table1").Table.Rows(2).Locked = True

发财

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2016/6/15 16:28:00 [只看该作者]

Tables("明细表").ApplySort = False

Dim ss As String = e.Form.Controls("ComboBox2").text

If ss = "" Then

messagebox.show("请选择单位或个人!")

Else

Dim s As Integer = DataTables("明细表").Compute("Max(序号)", "[对应] = '" & ss & "'")

Tables("明细表").Position= s

Dim r As Row = Tables("明细表").InsertNew()

s = s + 1

Tables("明细表").Position= s　　　　　　　　为什么不能选择刚插入的行？

r("序号") = format(s,"000")

r("对应") = e.Form.Controls("ComboBox2").text

Tables("明细表").Sort = "序号,对应 DESC"

Forms("收款).Controls("TextBox2").Select

End If

大红袍

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/15 16:31:00 [只看该作者]

插入行，就自动选择了插入的行，不需要你指定position

大红袍

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/15 16:32:00 [只看该作者]

再有就是，你不要排序啊，排序后，顺序肯定又乱了，你要findrow，比较_Identify值，才能得到插入的行的最新位置。

发财

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2016/6/16 8:17:00 [只看该作者]

不排序，数据表会很乱，如何使数据表保存顺序不乱？

发财

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2016/6/16 8:34:00 [只看该作者]

如何使数据表保持按［序号］的顺序排序，每次打开或执行操作都不乱？

下一主题 >> << 上一主题

总数 147 1 2 3 4 5 6 7 8 9 10 下一页 ..15

主题：指定行