Dim dst As WinForm.DataList = e.Form.Controls("DataList1") Dim dr as DataRow = dst.Current Dim a As String = dr("编号") For Index As Integer = 0 To dst.Count - 1 Dim dr1 As DataRow = dst.GetDataRow(Index) If dr1("编号") = a Then dr1("已付款") = true End If Next
加好友 
发短信
Post By：2009/3/26 17:23:00 [显示全部帖子]
