| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 各种乱入都走不通 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67864) |
| -- 作者：石四 -- 发布时间：2015/5/5 11:55:00 -- 各种乱入都走不通 晕啊，Table ,DataTable分不清
要这种效果：点按钮，窗口表“标记”列所有行标记上“核算中”
Dim blbm As String = e.Form.Controls("Label03").Text
If MsgBox("将提交该批次(" & blbm & ")核算,确定提交?",65,"提示") = 1 Then Dim a As Table = Tables("登记_Table1") For r As Integer = a.rows.Count - 1 To 0 Step -1 Dim dr As DataRow dr = DataTables("登记_Table1").DataRows(r) dr("标记") = "核算中"\' Next End If With DataTables("明细") .LoadFilter = "[_Identify] Is Null" .Load() End With
|
| -- 作者：Bin -- 发布时间：2015/5/5 11:56:00 -- For r As Integer = a.rows.Count - 1 To 0 Step -1 Dim dr As row dr = a.Rows(r) dr("标记") = "核算中"\' Next |
| -- 作者：石四 -- 发布时间：2015/5/5 12:06:00 -- 以下是引用Bin在2015/5/5 11:56:00的发言：
For r As Integer = a.rows.Count - 1 To 0 Step -1 Dim dr As row dr = a.Rows(r) dr("标记") = "核算中"\' Next 按上面的改了，但该死的“Object reference not set to an instance of an object.”还是没飞走 |
| -- 作者：sloyy -- 发布时间：2015/5/5 12:44:00 -- 你检查看,有没有"标记" 这一列? 是文本格式吗?够宽吗? |
| -- 作者：Bin -- 发布时间：2015/5/5 13:34:00 -- 上例子吧 |
| -- 作者：石四 -- 发布时间：2015/5/5 13:46:00 -- 经测试，能在“标记”列记上“核算中”，但是就是会弹出出错提示。
稍等，做个实例。 |
| -- 作者：石四 -- 发布时间：2015/5/5 13:47:00 -- 以下是引用sloyy在2015/5/5 12:44:00的发言：
你检查看,有没有"标记" 这一列? 是文本格式吗?够宽吗? “核算中”就6个字符，默认16个字符，应该够了 |
| -- 作者：石四 -- 发布时间：2015/5/5 14:27:00 -- 做的例子正常，怎么回事？让我想想。 |
| -- 作者：Bin -- 发布时间：2015/5/5 14:28:00 -- 对比一下例子和你项目有何不同,不同之处就是问题所在之处 |
| -- 作者：狐狸爸爸 -- 发布时间：2015/5/5 14:30:00 -- 用这个方法调试一下，看看那一行出错： http://www.foxtable.com/help/topics/1485.htm
|