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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]删除空行，不影响新增加的行

共有3317人关注过本帖树形打印复制链接主题：[求助]删除空行，不影响新增加的行

zswushi

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

加好友

发短信

等级：幼狐帖子：185 积分：1729 威望：0 精华：0 注册：2016/5/30 16:23:00

[求助]删除空行，不影响新增加的行 发帖心情

Post By：2016/10/12 10:23:00 [只看该作者]

我有增加按钮代码，我想增加后，未保存的空行，换行后可以自动删除

currentchanged 事件代码；

Dim ct As Table = CurrentTable

Dim name As String

For Each cl As Col In ct.Cols

If cl.name.Endswith("名称") Then

name = cl.name

Exit For

End If

For Each r As Row In ct.Rows

If r.Isnull(name)=False Then

r.save()

Forms("基本设置").Controls("增加").Enabled = True

Forms("基本设置").Controls("修改").enabled = True

Forms("基本设置").Controls("删除").enabled = True

Forms("基本设置").Controls("保存").enabled = False

Forms("基本设置").Controls("取消").enabled = True

Forms("基本设置").Controls("导出").enabled = True

Forms("基本设置").Controls("退出").enabled = True

End If

谢谢

zswushi

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

加好友

发短信

等级：幼狐帖子：185 积分：1729 威望：0 精华：0 注册：2016/5/30 16:23:00

Post By：2016/10/12 10:28:00 [只看该作者]

以下是增加按钮的代码：

Dim ct As Table = CurrentTable

Dim rz As Integer =ct.Rows.count-1

Dim r As Row =Ct.Rows(rz)

Dim dex As Integer

Dim name As String

For Each cl As Col In ct.Cols

If cl.name.Endswith("名称") Then

dex =cl.Index

name = cl.name

Exit For

End If

If r IsNot Nothing Then

If r.Isnull(name)=True Then

Ct.Select(rz,dex,rz,dex)

Ct.startediting

e.Form.Controls("增加").Enabled = True

e.Form.Controls("修改").enabled = False

e.Form.Controls("删除").enabled = False

e.Form.Controls("保存").enabled = True

e.Form.Controls("取消").enabled = True

e.Form.Controls("导出").enabled = False

e.Form.Controls("退出").enabled = False

Return

Else

Dim hde As Integer=Ct.addnew().Index

Ct.Select(hde,dex,hde,dex)

Ct.startediting

e.Form.Controls("增加").Enabled = True

e.Form.Controls("修改").enabled = False

e.Form.Controls("删除").enabled = False

e.Form.Controls("保存").enabled = True

e.Form.Controls("取消").enabled = True

e.Form.Controls("导出").enabled = False

e.Form.Controls("退出").enabled = False

End If

有点蓝

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

加好友

发短信

等级：超级版主帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/10/12 10:58:00 [只看该作者]

currentchanged 事件代码;

Dim ct As Table = e.Table

Dim name As String

For Each cl As Col In ct.Cols

If cl.name.Endswith("名称") Then

name = cl.name

Exit For

End If

ct.DataTable.DeleteFor(name & " is null")

ct.DataTable.save

Forms("基本设置").Controls("增加").Enabled = True

Forms("基本设置").Controls("修改").enabled = True

Forms("基本设置").Controls("删除").enabled = True

Forms("基本设置").Controls("保存").enabled = False

Forms("基本设置").Controls("取消").enabled = True

Forms("基本设置").Controls("导出").enabled = True

Forms("基本设置").Controls("退出").enabled = True

zswushi

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

加好友

发短信

等级：幼狐帖子：185 积分：1729 威望：0 精华：0 注册：2016/5/30 16:23:00

Post By：2016/10/12 11:48:00 [只看该作者]

若填写更改后的currentchanged 事件代码，之前增加按钮的代码，单击增加按钮时，就不能增加行啦，谢谢，请赐教

有点蓝

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

加好友

发短信

等级：超级版主帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/10/12 12:05:00 [只看该作者]

试试这2句代码前后加上

SystemReady = False

Dim hde As Integer=Ct.addnew().Index

Ct.Select(hde,dex,hde,dex)

SystemReady = True

zswushi

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

加好友

发短信

等级：幼狐帖子：185 积分：1729 威望：0 精华：0 注册：2016/5/30 16:23:00

Post By：2016/10/12 14:28:00 [只看该作者]

可是可以啦，但我表里之前的自动增加行，也就是最后一行，最后一个单元格，回车时，能够增加行，不见啦，还有，代码出现下述的提示

Syntax error: Missing operand before 'Is' operator.

.NET Framework 版本：2.0.50727.3053

Foxtable 版本：2016.7.29.1

错误所在事件：全局表事件,CurrentChanged

详细错误信息：

Syntax error: Missing operand before 'Is' operator.

哎，这个代码不好编，谢谢

zswushi

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

加好友

发短信

等级：幼狐帖子：185 积分：1729 威望：0 精华：0 注册：2016/5/30 16:23:00

Post By：2016/10/12 14:29:00 [只看该作者]

是不是与我放在全局表事件里的位置有关呢？？

有点蓝

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

加好友

发短信

等级：超级版主帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/10/12 15:25:00 [只看该作者]

currentchanged 事件代码;

Dim ct As Table = e.Table

Dim name As String

For Each cl As Col In ct.Cols

If cl.name.Endswith("名称") Then

name = cl.name

Exit For

End If

If name > 0 Then

ct.DataTable.DeleteFor(name & " is null")

ct.DataTable.save

End If

Forms("基本设置").Controls("增加").Enabled = True

Forms("基本设置").Controls("修改").enabled = True

Forms("基本设置").Controls("删除").enabled = True

Forms("基本设置").Controls("保存").enabled = False

Forms("基本设置").Controls("取消").enabled = True

Forms("基本设置").Controls("导出").enabled = True

Forms("基本设置").Controls("退出").enabled = True

zswushi

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

加好友

发短信

等级：幼狐帖子：185 积分：1729 威望：0 精华：0 注册：2016/5/30 16:23:00

Post By：2016/10/13 9:47:00 [只看该作者]

代码运行后，还是出问题，与全局事件有关系，我换了一种思路来开发，好像解决了，有不懂的再向你们请教，谢谢

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

主题：[求助]删除空行，不影响新增加的行