主题：如何绘图

Case 0
    selectednodename=e.sender.SelectedNode.Name  
    
    Dim dr As DataRow
    Dim hang As String
    dr = DataTables("ConfigStreamer").Find("[ProjectName]='" & selectednodename & "'")
    If dr IsNot notthing
        NumberofStreamers=dr("NumberofStreamers")
        messagebox.show(NumberofStreamers)
    Else
        msgbox("没找到")
    End If
End Select

可以了，谢谢

在循环之前，你要设置

 

Series.Length = NumberofStreamers

 

 

 

老师好，我想单击某一treeview结点，然后在表中标识出与该节点名字相同的某行，请问如何写代码。谢谢

我设置了样式，但要在drawcell里写代码，可是我这是trewview的click事件，不知如何处理。

drawcell事件写代码，如

 

Dim frm As WinForm.Form = forms("窗口1")
If frm.Opened Then
    Dim nd As WinForm.TreeNode = frm.Controls("TreeView1").selectedNode
    If nd IsNot Nothing Then
        e.Table.DataTable.AddUserStyle("样式1", color.red, color.black)
        If nd.Text = e.Row("第一列") Then
            e.style = "样式1"
        End If
    End If
End If

 

AfterSelectNode事件

 

Tables("表A").Refresh

谢谢老师。