哪段代码是处理窗口的?在处理窗口的代码中调试,比如打开月租收费窗口
If e.Form.DropTable IsNot Nothing Then
Select Case e.Form.DropTable.Name
Case "月租收费_Table1"
Vals(0) = DataTables("分类").DataRows(0)("分类")
If e.Node.Level = 0 Or e.Node.Level = 1 Or e.Node.Level = 2 Or e.Node.Level = 3 Then '如果是顶层节点
Return '则返回
End If
msgbox("车辆基本信息").Select("分类 = '" & Vals(0) & "' And 住址_巷 ='" & Vals(1) & "' And 住址_号 ='" & Vals(2) & "'And 住址_房 ='" & Vals(3) & "'")
Dim drs As List(Of DataRow) = DataTables("车辆基本信息").Select("分类 = '" & Vals(0) & "' And 住址_巷 ='" & Vals(1) & "' And 住址_号 ='" & Vals(2) & "'And 住址_房 ='" & Vals(3) & "'")
msgbox(drs.count)
For Each dr As DataRow In drs
If dr IsNot Nothing Then
msgbox(dr("分类"))
tr("分类") = dr("分类")
tr("住址_巷") = dr("住址_巷")
tr("住址_号") = dr("住址_号")
tr("住址_房") = dr("住址_房")