| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]求教一下一下代码如何加载行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121431) |
| -- 作者：积水成渊 -- 发布时间：2018/7/6 9:45:00 -- [求助]求教一下一下代码如何加载行 Dim Result As DialogResult Result = MessageBox.Show("是否要执行此操作", "提示", MessageBoxButtons.YesNo) If Result = DialogResult.No Then \'Return Else Dim t As Table = Tables("表A") \'dim c as integer = 0 If t.Current Is Nothing Then Return False If t.TopPosition < 0 Then Return False \'如果选定区域不包括数据行 Dim it As Win.Data.ITable = SYS.Tables(t.Name) For i As Integer = it.TopRow To it.BottomRow Dim r As Win.Data.IRow = it.Rows(i) If r.visible = False Then Continue For If r.IsNull("_Identify")= True Then Continue For \'For i As Integer = t.TopPosition To t.BottomPosition \'Dim r As Row = t.Rows(i) SYS.execproc("数据源","exec 存储过程 \'\',\'"& r("_Identify") &"\'") r.Load() \'此代码不是Win.Data.IRow 的成员，该怎么改 \'c=c+1 Next Try \'Dim dt As DataTable = DataTables("表A") \'dt.load Catch ex As Exception Throw ex End Try End If MessageBox.Show("执行完毕,请检查是否有错误!", "提示")
|
| -- 作者：积水成渊 -- 发布时间：2018/7/6 9:50:00 -- 顶一个 |
| -- 作者：有点甜 -- 发布时间：2018/7/6 9:58:00 -- 你要重新加载某一行数据？
Dim fdr As DataRow = t.DataTable.Find("_Identify = " & r("_Identify")) If fdr IsNot Nothing Then fdr.Load End If |
| -- 作者：积水成渊 -- 发布时间：2018/7/6 10:00:00 -- 是的，我的目的是重新加载行 |
| -- 作者：有点甜 -- 发布时间：2018/7/6 10:15:00 -- 以下是引用积水成渊在2018/7/6 10:00:00的发言：
是的，我的目的是重新加载行
参考3楼代码。你自己的dll的irow和foxtable的row是不能混用的。 |
| -- 作者：积水成渊 -- 发布时间：2018/7/6 10:32:00 -- 谢谢，懂了。弄好了。 |