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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 一个关于所有行的问题。。。

共有4186人关注过本帖树形打印复制链接主题：一个关于所有行的问题。。。

fubblyc

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

加好友

发短信

等级：九尾狐帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00

一个关于所有行的问题。。。 发帖心情

Post By：2014/2/28 23:44:00 [显示全部帖子]

If DataTables("收信人").DataRows(0).IsNull("内容") Then

MessageBox.Show("错误,没有输入短信内容!")

End If

这段代码表示要是第一行的内容列如是是空值的话，则提示没有输入短信内容

那要实现不是第一行，而是要看所有的行是不是空值而来做提示，怎么办呢？

谢谢各位老师！！

fubblyc

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

加好友

发短信

等级：九尾狐帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00

Post By：2014/3/1 7:29:00 [显示全部帖子]

rijh4078老师，代码测试有效。

不过可否是这样，不是每一行没有写就跳出信息框，而是任意行没有写内容才掉。因为如果按照每一行的话，那么有10行没有写内容，就要跳出10个同样的信息框，对用户来说，一个就可以了。只要有任意一行没有写的，就条出来。

fubblyc

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

加好友

发短信

等级：九尾狐帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00

Post By：2014/3/1 7:51:00 [显示全部帖子]

或者是这样子：

只有这张表有单元格是空的，则提示“请填完整信息”，如果都不为空，才填充到另外一个表，且才显示“信息已经提交到发送队列”，如下

Dim f As New Filler

f.SourceTable = DataTables("收信人") '指定数据来源

f.SourceCols = "VIP卡号,姓名,手机号码,内容" '指定数据来源列

f.DataTable = DataTables("待发送") '指定数据接收表

f.Fill() '填充数据

Dim Info As WinForm.Label = e.Form.Controls("lblModemInfo")

info.Text = Date.Now & "提交待发信息到发送队列"

我现在就是前面的

只有这张表有单元格是空的，则提示“请填完整信息” 不懂得写。。。

fubblyc

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

加好友

发短信

等级：九尾狐帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00

Post By：2014/3/1 10:04:00 [显示全部帖子]

谢谢Bin老师，可以实现！！

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

主题：一个关于所有行的问题。。。