主题：Current函数示例是否有BUG?

我就是放在CurrentChanged中的。

一般来说，反馈一个问题，最好做一个简单的例子传上来来说明，这样只管很多。

Datalist可以绑定任何DataTable

加个判断吧：

Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
Dim dr as DataRow = dst.Current '获得选定行
if dr IsNot Nothing
    Dim Index As Integer = Tables("订单").FindRow(dr) '获得选定行在Tables("订单")中的位置
    If Index >=0 Then '如果选定行在Tables("订单")中存在
        Tables("订单").Position = Index '定位到选定行
    End If
End If

不应该自动同步的，因为不少的场合并不需要同步的。