共4 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]动态列连续空行数自动录入到间隔列
1楼
185723664 发表于：2024/8/5 16:05:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:动态列连续空行数自动录入到间隔列.foxdb |
此主题相关图片如下：22.jpg
求助：第一列变换时，间隔列自动录入上图效果值
下面代码跟上图想要的效果不符，求助修改
If e.DataCol.Name = "动态列" Then '如果是已结帐列的内容变动
If e.NewValue = True Then '而且变动后的值是True(已勾选)
e.DataRow("间隔") = Nothing '如果为空,则清除出生日期
Else
Dim t As Table = Tables("表A")
Dim k As Integer = 0
Dim m As Integer = -1
For i As Integer = 0 To t.rows.count - 1
If t.rows(i).isnull("动态列") Then
k = k + 1
End If
If t.rows(i).isnull("动态列") = False Then
For j As Integer = m + 1 To i
If t.rows(j)("间隔") = Nothing Then
t.rows(j)("间隔") = k
End If
Next
m = i
k = 0
End If
Next
For j As Integer = m + 1 To t.rows.count - 1
If t.rows(j)("间隔") = Nothing Then
t.rows(j)("间隔") = k
End If
Next
End If
End If
[此贴子已经被作者于2024/8/5 16:05:47编辑过]
2楼
有点蓝 发表于：2024/8/5 16:10:00没看懂，解释一下处理逻辑，使用文字说明一下具体要做什么功能
3楼
185723664 发表于：2024/8/5 16:41:00蓝老师，这样文字加图片补充描述：
间隔列取 动态列 连续空行数量最大值录入到 间隔列
此主题相关图片如下：33.jpg
间隔列取 动态列 连续空行数量最大值录入到 间隔列
此主题相关图片如下：33.jpg[此贴子已经被作者于2024/8/5 16:59:30编辑过]
4楼
有点蓝 发表于：2024/8/5 17:05:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:动态列连续空行数自动录入到间隔列.zip |
共4 条记录, 每页显示 10 条, 页签:
[1]