主题：[求助]数据显示问题

数据同步显示问题
Datalist1控件的CurrentChanged事件中
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
Dim dr as DataRow = dst.Current
if dr isnot nothing then
   Dim Index As Integer = Tables("当前表名").FindRow(dr)
   If Index >=0 Then 
      Tables("当前表名").Position = Index   
    End If
End If

供你参考，呵呵