日期:2014-05-18  浏览次数:20854 次

动态生成控件的name问题
根据数据库记录生成了一些panel控件
For     ii     As     Integer     =     0     To     Datasetbz.Tables(0).Rows.Count     -     1    
                                                              Dim     PAN     As     New     Panel    
                                                              PAN.Parent     =     Panel2    
                                                              PAN.BackColor     =     Color.Blue    
                                                              PAN.Name     =     Datasetbz.Tables( "jichu_data ").Rows(ii)( "班组 ")    
                                                              PAN.Left     =     ll    
                                                              PAN.Top     =     tt    
                                                              PAN.Width     =     Datasetbz.Tables( "jichu_data ").Rows(ii)( "人数 ")     *     30    
                                                              PAN.Height     =     80    
                                                              ll     +=     Datasetbz.Tables( "jichu_data ").Rows(ii)( "人数 ")     *     30     +     10    
                                                              PAN.Show()    
                                                                &nbs