Dim name As WinForm.textBox = e.Form.Controls("name") With Tables("定义表") For x As Integer = .TopPosition To .BottomPosition For y As Integer = .LeftCol To .RightCol Dim fdr As DataRow = DataTables("主表").Find("编号 = '" & CurrentTable.Value(x,y) & "'") If fdr IsNot Nothing Then fdr("付款") = name.text End If Next Next End With
加好友 
发短信
Post By：2014/6/5 17:11:00 [显示全部帖子]
