数据同步显示问题 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