主题：主窗口里建table报错

1、我测试没问题

 

2、你试试改成

 

If Typeof e.sender Is winform.RadioButton Then
    If e.sender.checked=True Then
        Select Case e.sender.name
            Case "RadioButton2"
                Dim dtb As New DataTableBuilder("BOOM")
                dtb.AddDef("6", Gettype(String),250)
                Tables("窗口2_Table1").DataSource = dtb.BuildDataSource

        End Select
    End If
End If

 

3、如果还是不行，请做一个对应实例发上来测试

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:21312321_201905281120.zip

点击2次手册抬头就会死机。41是列的数量，也会msg包2次。

开发者密码是一个空格。

If Typeof e.sender Is winform.RadioButton Then
   ' For Each c As Winform.RadioButton In e.Form.Controls("GroupBox1").children
     ''   c.BackColor=Color.Transparent
  '  Next
    If e.sender.checked=True Then
       ' e.sender.BackColor=Color.Lime

        Select Case e.sender.name
            'Case "customBOMconsume","customBOMlist"
                'Tables("新增BOM_Table1").DataSource = DataTables(e.sender.name)
                'Tables("新增BOM_Table1").AutoSizeHeaderRow
                'Tables("新增BOM_Table1").AutoSizeCols
            Case "customBOMtitle"
                'Dim currline As Integer
                'Dim Colline As Integer
                'colline=DataTables("customBOMtitle").DataCols.count
                'Dim dr2 As DataRow
                Dim dtb As New DataTableBuilder("BOOM")
               
                dtb.AddDef("1", Gettype(String),250)
                dtb.AddDef("2", Gettype(String),250)
                dtb.AddDef("3", Gettype(String),250)
                'dtb.AddDef("4", Gettype(String),250)
                'dtb.AddDef("5", Gettype(String),250)
                'dtb.AddDef("6", Gettype(String),250)
                Tables("新增BOM_Table1").DataSource = dtb.BuildDataSource
MessageBox.Show(DataTables("customBOMtitle").DataCols.count)
                'For Each itemcol As DataCol In DataTables("customBOMtitle").DataCols
                    'If currline <= Colline/3 Then
                        'dr2 =DataTables("BOOM").addnew
                        'dr2("1")=itemcol.Name
                        'currline +=1
'MessageBox.Show(1)
                    'ElseIf currline <= Colline/3*2 Then
                        'dr2 =DataTables("BOOM").find("[3] is null")
                        'dr2("3")=itemcol.Name
                        'currline +=1
'MessageBox.Show(2)
                    'Else
                        'dr2 =DataTables("BOOM").find("[5] is null")
                        'dr2("5")=itemcol.Name
                        'currline +=1
'MessageBox.Show(3)
                    'End If
                'Next
                ''
        End Select
    End If
End If

你没理解我的意思。

 

控件属性->tab键顺序->改成20即可。反正，只要不是第一个即可。

 

 

搞定了，但是不知道为啥会这样。

 

生成表格以后，焦点会重新回到你的主窗口的第一个控件，这个时候可能触发了click事件。

 

频繁多次重复生成表的时候，就可能报错。