主题：定位到找到的行后怎么将当前行整行突出显示呢？

定位到找到的行后怎么将当前行整行突出显示呢？

With tb.Table
    Dim r As Integer
    r = .FindRow("uuid='" & tb.Table.Current("uuid") & "'") '从第一行开始查找
    If r >= 0 Then '如果找到的话
        .Position = r '定位到找到的行。
    End If
End With

老师 参照你的提示  当前可以选定行突出显示了

一级窗体table1  打开二级窗体录入或编辑数据后，利用如下代码编辑数据后，会正常找到并定位行   但是在新增数据保存后  下述代码不能定位到符合条件的行  有没有办法修正呢？

主表uuid的弹出值  和一级表得到的数据是一致的

编辑是因为一级表本身已经存在主表uuid的记录 

录入是因为一级表本身没有数据，怎么解决录入后新增的数据  在一级表中对应的定位到符合条件的行呢？

代码如下：

Dim cmd As New S QLCommand
cmd.Connec ti
cmd.Command Text = "S ELE CT * FR OM 知识库主表"
MessageBox.Show(vars("主表uuid"))

Dim dt As DataTable
dt = cmd.ExecuteReader()
Dim tb As WinForm.Table = Forms("知识库").Controls("Table1")
tb.Table.StopRedraw
tb.Table.DataSource = dt
tb.Table.SetColVisibleWidth("类别|120|级别|60|行业|120|单位|120|文件名|700")

With tb.Table
    Dim r As Integer
    r = .FindRow("uuid='" & vars("主表uuid") & "'") '从第一行开始查找
    If r >= 0 Then '如果找到的话
        .Position = r '定位到找到的行。
    End If
End With
tb.Table.ListMode=True

看嘛  实际上测试的时候  对应的uuid的值又是存在于数据库记录中的……

麻烦老师指导下  谢谢！

此主题相关图片如下：4.gif

录入窗体关闭后事件代码如下：

代码如下：

Dim cmd As New S QLCommand
cmd.Connec ti
cmd.Command Text = "S ELE CT * FR OM 知识库主表"
MessageBox.Show(vars("主表uuid"))

Dim dt As DataTable
dt = cmd.ExecuteReader()
Dim tb As WinForm.Table = Forms("知识库").Controls("Table1")
tb.Table.StopRedraw
tb.Table.DataSource = dt
tb.Table.SetColVisibleWidth("类别|120|级别|60|行业|120|单位|120|文件名|700")

With tb.Table
    Dim r As Integer
    r = .FindRow("uuid='" & vars("主表uuid") & "'") '从第一行开始查找
    If r >= 0 Then '如果找到的话
        .Position = r '定位到找到的行。
    End If
End With
tb.Table.ListMode=True