窗口CurrentChanged事件中如果鼠标有“资产项目”在执行黄色代码,如果鼠标在“负债权益项目”中就执行蓝色代码
Dim dr3As DataRow = DataTables("报表编制说明").find("会计准则 = '"& CurrentTable.Current("会计准则") & "'and (项目 = '"& CurrentTable.Current("资产项目") & "' ")
If dr2 IsNot Nothing Then
'If Tables("资产负债模板"). IsFocusCell("负债权益项目") Then
e.Form.Controls("TextBox1").text = dr2("使用说明")
'End If
Else
e.Form.Controls("TextBox1").text = ""
End If
Dim dr2 As DataRow = DataTables("报表编制说明").find("会计准则 = '"& CurrentTable.Current("会计准则") & "'and 项目 = '"& CurrentTable.Current("负债权益项目") & "'")
If dr2 IsNot Nothing Then
'If Tables("资产负债模板"). IsFocusCell("负债权益项目") Then
e.Form.Controls("TextBox1").text = dr2("使用说明")
'End If
Else
e.Form.Controls("TextBox1").text = ""
End If