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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]删除多行数据提示

共有3403人关注过本帖树形打印复制链接主题：[求助]删除多行数据提示

有点甜

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

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/1/21 20:22:00 [显示全部帖子]

做一个删除按钮，先判断一次，判断正确以后再执行删除。

有点甜

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

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/1/21 20:47:00 [显示全部帖子]

循环选中的行，判断。

有点甜

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

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/1/22 10:18:00 [显示全部帖子]

DataTables("光功率登记表").ReplaceFor("对比光功率_输出光功率", val(r(e.Form.Controls("后期").Text)) - val(r(e.Form.Controls("前期").Text)))

有点甜

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

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/1/22 10:19:00 [显示全部帖子]

或者，直接写，因为你已经循环每一列了。

r("对比光功率_输出光功率") = val(r(e.Form.Controls("后期").Text)) - val(r(e.Form.Controls("前期").Text))

有点甜

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

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/1/22 10:55:00 [显示全部帖子]

If CurrentTable IsNot Nothing Then

Dim cs As String = ""

For Each c As Col In CurrentTable.Cols

If c.Name <> "第一列" AndAlso c.Name <> "第二列" Then

cs &= c.Name & "|"

End If

e.Sender.ComboList = cs.TrimEnd("|")

End If

主题：[求助]删除多行数据提示