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

开发者密码是一个空格。

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事件。

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