- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]重置列直接退出了？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49850)
-- 发布时间：2014/4/24 22:38:00
-- [求助]重置列直接退出了？
If e.DataCol.Name = "第三列" Then \'如果是已结帐列的内容变动
Dim dr As DataRow=e.DataRow
If dr("第三列")="a" Then
dr("第四列")=dr("第一列")+dr("第二列")
Else
dr("第四列")=Nothing
End If
End If
For Each x As DataRow In DataTables("表a").DataRows
If x.RowState=DataRowState.Modified
DataTables("表A").DataCols("第三列").RaiseDataColChanged()
End If
Next
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目0422.table |
[此贴子已经被作者于2014-4-24 22:40:50编辑过]
-- 发布时间：2014/4/24 22:44:00
--
注意判断列名，试试这样。如果还不行，就上传例子，并说明意图。
If e.DataCol.Name = "第三列" Then \'如果是已结帐列的内容变动
Dim dr As DataRow=e.DataRow
If dr("第三列")="a" Then
dr("第四列")=dr("第一列")+dr("第二列")
Else
dr("第四列")=Nothing
End If
Else
For Each x As DataRow In DataTables("表a").DataRows
If x.RowState=DataRowState.Modified
DataTables("表A").DataCols("第三列").RaiseDataColChanged()
End If
Next
End If
-- 发布时间：2014/4/24 22:47:00
--
以下是引用有点甜在2014-4-24 22:44:00的发言：
我的例子上传了
注意判断列名，试试这样。如果还不行，就上传例子，并说明意图。
If e.DataCol.Name = "第三列" Then \'如果是已结帐列的内容变动
Dim dr As DataRow=e.DataRow
If dr("第三列")="a" Then
dr("第四列")=dr("第一列")+dr("第二列")
Else
dr("第四列")=Nothing
End If
Else
For Each x As DataRow In DataTables("表a").DataRows
If x.RowState=DataRowState.Modified
DataTables("表A").DataCols("第三列").RaiseDataColChanged()
End If
Next
End If
-- 发布时间：2014/4/24 22:50:00
--
额，可以了~也理解代码啦~ 只是原来的代码为什么会直接退出了？