DataTables("安置销控横").DeleteFor("")
Dim s As String = e.Form.Controls("安置批次").text
For Each v As String() In DataTables("安置房信息").GetValues("小区名称|建设期数|楼幢号|单元号|单双号|显示类别")
Dim dr As DataRow = DataTables("安置销控横").AddNew()
dr("小区名称") = v(0)
dr("建设期数") = v(1)
dr("楼幢号") = v(2)
dr("单元号") = v(3)
dr("单双号") = v(4)
dr("显示类别") = v(5)
Dim prds As List(Of DataRow) = DataTables("安置房信息").select("小区名称='" & v(0) & "' And 建设期数='" & v(1) & "' and 楼幢号='" & v(2) & "' And 单元号='" & v(3) & "' and 单双号='" & v(4) & "' And 显示类别='" & v(5) & "'")
For Each prd As DataRow In prds
dr("楼层" & "_" & prd("楼层")) = prd("房号")
Next
Next
老师，以上代码正确的。
DrawCell事件代码：
If e.Col.Name Like "楼层*" Then
Dim dr As DataRow = DataTables("安置销控横").Find("小区名称='" & e.Row("小区名称") & "' and 建设期数='" & e.Row("建设期数") & "' and 楼幢号='" & e.Row("楼幢号") & "' and 单元号='" & e.Row("单元号") & "' and 单双号='" & e.Row("单双号") & "' and 显示类别='" & e.Row("显示类别") & "' and 楼层='" & e.Col.Name.Split("_")(0) & "' and 房号='" & e.Row(e.Col.Name) & "'")
If dr IsNot Nothing Then
e.Style = dr("安置状态")
End If
End If
请教下面这一句代码如何修改才正确
楼层 = '" & e.Col.Name.Split("_")(0) & "'
加好友 
发短信
Post By：2024/2/29 10:29:00 [只看该作者]
此主题相关图片如下：1.png