门窗信息表出错的是下面代码
'对--表门窗玻璃---自动更新数据的代码
Select Case e.DataCol.Name
Case "门窗代号", "宽度第I分格1", "宽度第2分格1", "宽度第3分格1", "宽度第4分格1", "宽度第5分格1", "高度第一分格1", "高度第二分格1", "高度第三分格1", "高度第四分格1", "高度第五分格1"
Case Else 这里表示的是除了上面蓝色代码列之外的其它列，当这些列名称长度小于6，比如是序号、核对标记列等，使用下面红色代码就会出错，建议逐一检查所有列，不需要处理的就添加到上面蓝色代码处
Dim s As String = "宽度分格"
If e.DataCol.Name.StartsWith("高度") Then
s = "高度分格"
End If
DataTables("门窗玻璃").ReplaceFor( s & Right(e.DataCol.Name, 1) , e.DataRow(e.DataCol.Name) , "[门窗代号] = '" & e.DataRow("门窗代号") & "' and [区域划分] = '" & e.DataRow("区域划分") & "' and [楼栋代号] = '" & e.DataRow("楼栋代号") & "' And [" & s & "1]='" & e.DataRow(e.DataCol.Name.SubString(0, 6) & "1") & "'")
End Select
加好友 
发短信
Post By：2023/9/27 10:18:00 [显示全部帖子]
