此主题相关图片如下：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")

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