专家坐堂-Datalist中的行如何与表格同步呢?Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  Datalist中的行如何与表格同步呢?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1737)

--  作者：woodiy
--  发布时间：2009/2/5 14:41:00
--  Datalist中的行如何与表格同步呢?

此主题相关图片如下：未标题-2.jpg

如何设置上方的"删除", 上一行,下一行的代码呢?

删除的Chick代码如下,可以吗?

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

--  作者：狐狸爸爸
--  发布时间：2009/2/5 15:23:00
--
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
Dim dr as DataRow = dst.Current \'获得选定行
If dr Is Nothing Then
    Return
End If
Dim Index As Integer = Tables("调坯单").FindRow(dr) \'获得选定行在Tables("订单")中的位置
If Index >=0 Then \'如果选定行在Tables("订单")中存在
   Tables("调坯单").Position = Index
End If

--  作者：woodiy
--  发布时间：2009/2/5 15:48:00
--
Datalist中的光标行为什么不能随着表格中的光标变动呢?