[浏览完整版]
标题：多表融合之辅助计位列
1楼
刘效功天津 发表于：2023/9/22 15:05:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:关于辅助列计数问题.rar |
2楼
有点蓝 发表于：2023/9/22 15:14:00把代码里的列名【辅助数值型】改为为正确的列名【辅助定位】即可
3楼
刘效功天津 发表于：2023/9/22 15:56:00没搞明白
4楼
有点蓝 发表于：2023/9/22 15:57:00自己写了什么代码不明白！！打开项目看看表A的datacolchanged事件不就知道了
5楼
刘效功天津 发表于：2023/9/22 16:02:00''设置相同型材名称时用于多表融合的辅助数值型通用代码代码
'If e.DataCol.Name = "型材名称" Then
' Dim dr As DataRow
' dr = DataTables("表A").Find("[型材名称] = '" & e.NewValue & "'")
' If dr IsNot Nothing Then
' dr("辅助定位") = 0
' ' Else
' For i As Integer = 1 To 500
' e.DataRow("辅助定位") = e.DataRow("辅助定位") + i
' 'e.DataRow("辅助定位") = dr("辅助定位") + i '全变
' 'dr("辅助定位") = e.DataRow("辅助定位") + i
' 'dr("辅助定位") = dr("辅助定位") + i'全变一次，相同的不变
' Next
' End If
'End If
目的 型材名称如果第１次出现，辅助定位就设为1 如果第二次出现，就设为2，以此类推
玻璃副框 出现了3次 就依次设为1，2，3，........
边框 出现了2次 就依次设为1，2，........
封边条 出现了１次 就设为1
老师 上面的代码实现不了，上面的目的，搞了1上午也没搞明白，老师帮忙改改代码，压缩包里有文件可以测试，谢谢老师！
6楼
有点蓝 发表于：2023/9/22 16:06:00If e.DataCol.Name = "型材名称" Then
if e.DataRow.isnull("辅助定位") then
e.DataRow("辅助定位") = DataTables("表A").compute("max(辅助定位)","[型材名称] = '" & e.NewValue & "'") + 1
End If
End If
7楼
刘效功天津 发表于：2023/9/22 16:10:00老师，我上面发给您的代码实现不了辅助定位中所需的定位数字，烦请老师修改一下代码，谢谢老师
8楼
刘效功天津 发表于：2023/9/22 16:11:00好的，老师，我测试一下，谢谢老师！
9楼
刘效功天津 发表于：2023/9/22 17:38:00If e.DataCol.Name = "型材名称" Then if e.DataRow.isnull("辅助定位") then e.DataRow("辅助定位") = DataTables("表A").compute("max(辅助定位)","[型材名称] = '" & e.NewValue & "'") + 1 End If End If 谢谢老师，测试没问题了， 假如删掉一行或清除一行数据，入住定位数字能重新计算就更好了，比如 玻璃副框 有3个，辅助定位依次是1,２,３ 如果删除2的数据，能从新计算，把原来的3 变成2 如果删除1的数据，辅助定位重新计算，原来的2变为1 原来的3变为2， 也就是重新计算一下 就更完美了，因为层这个排序值能够看到相同的型材有几个 老师还的调整一下代码， 谢谢老师 |
10楼
刘效功天津 发表于：2023/9/22 17:40:00老师，我这个键盘可能有问题了，老是打错别字