| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 一个关于所有行的问题。。。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=46903) |
| -- 作者：fubblyc -- 发布时间：2014/2/28 23:44:00 -- 一个关于所有行的问题。。。 If DataTables("收信人").DataRows(0).IsNull("内容") Then MessageBox.Show("错误,没有输入短信内容!") End If 这段代码表示要是第一行的 内容 列如是是空值的话，则提示 没有输入短信内容 那要实现不是第一行，而是要看所有的行是不是空值而来做提示，怎么办呢？ 谢谢各位老师！！
|
| -- 作者：rjh4078 -- 发布时间：2014/3/1 0:17:00 -- for each dr as datarow in DataTables("收信人").DataRows
If dr.IsNull("内容") Then
MessageBox.Show("错误,没有输入短信内容!")
End If
next
|
| -- 作者：fubblyc -- 发布时间：2014/3/1 7:29:00 -- rijh4078老师，代码测试有效。 不过可否是这样，不是每一行没有写就跳出信息框，而是任意行没有写内容才掉。因为如果按照每一行的话，那么有10行没有写内容，就要跳出10个同样的信息框，对用户来说，一个就可以了。只要有任意一行没有写的，就条出来。 |
| -- 作者：fubblyc -- 发布时间：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 & "提交待发信息到发送队列" 我现在就是前面的 只有这张表有单元格是空的，则提示“请填完整信息” 不懂得写。。。
|
| -- 作者：lsy -- 发布时间：2014/3/1 8:39:00 -- for each dr as datarow in DataTables("收信人").DataRows
If dr.IsNull("内容") Then
MessageBox.Show("错误,没有输入短信内容!") Exit For
End If
next |
| -- 作者：伍敬红 -- 发布时间：2014/3/1 9:38:00 -- 怎样增加列? |
| -- 作者：Bin -- 发布时间：2014/3/1 9:40:00 -- http://www.foxtable.com/help/topics/0023.htm |
| -- 作者：fubblyc -- 发布时间：2014/3/1 10:04:00 -- 谢谢Bin老师，可以实现！！ |