主题：SQLCommand 得到的表数据 怎么设定显示列及列宽呢？

 
此主题相关图片如下：1.png

当前代码如下：运行效果如上！红色部分代码该怎么转换呢？

If Forms("会议主体").opened Then
    If  vars("会议主题uuid") <>"" Then
        Dim cmd As New SQ LCommand
        cmd.Conne cti
        Dim dt,dt1 As DataTable
        cmd.Comm andText = "se le ct * From 会议议题 where 主题uuid='" & vars("会议主题uuid") &"'"
        dt = cmd.ExecuteReader()
        Tables("会议主体_table1").SetColVisibleWidth("会议议题|300")
        Tables("会议主体_table1").DataSource =dt   
        output.show(vars("会议主题uuid"))
        With Tables("会议主体_table1")
            Dim r As Integer
            r = .FindRow("开始状态= true and 结束状态=false ") '从第一行开始查找
            If r >= 0 Then '如果找到的话
                .Position = r '定位到找到的行.
                Tables("会议主体_table2").Filter="uuid='"& Tables("会议主体_table1").Current("uuid")  &"'"
            End If
        End With
    End If
End If

        dt = cmd.ExecuteReader()
        Tables("会议主体_table1").DataSource =dt
        Tables("会议主体_table1").SetColVisibleWidth("会议议题|300")

得到的是如图：怎么解决呢？