我大概写了一下,没有测试,你可以试一下。
- Namespace FormEvents
- Public Class Form1c9f9fe44ded4c85aea9dfd6a13b03ee
- Inherits FormEventsBase
- Private m_tblDtl As SmGrid
- Public Sub 一表多表属性_Load(sender As Object,e As System.EventArgs)
- m_tblDtl=Me.SmForm.ControlDictionary()("tblDtl")
- Dim tblSQL As SmEditTreeTable=Me.SmForm.ControlDictionary()("tblSQL")
-
- AddHandler tblSQL.BaseSmEditTreeGrid.CurrentChanged, AddressOf tblSQL_CurrentChanged
-
- End Sub
-
- Public Sub tblSQL_CurrentChanged(sender As Object,e As System.EventArgs)
- Dim tblSQL As SmEditTreeGrid=sender
- If tblSQL.CurrentRowData IsNot Nothing Then
-
- If tblSQL.SelectedNode IsNot Nothing AndAlso tblSQL.SelectedNode.Children=0 Then
- Dim strSQL As String=tblSQL.CurrentRowData("SQL")
-
- If Not String.IsNullOrEmpty(strSQL) Then
-
- m_tblDtl.Name=tblSQL.CurrentRowData("SQL名称")
-
- m_tblDtl.FillAndLoadSetting(strSQL,Proj.SysDataFactory("UserDB"),False,CommandType.Text)
- End If
- End If
- End If
- End Sub
-
- End Class
- End Namespace
复制代码
|