Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
给个提示
没有人帮忙吗?
行是行了,有一点看不懂代码
For i As Integer = 1 To 4
e.Form.Controls("TextBox"& i+1).Value= CurrentTable(Tables("订单").Position + i,"雇员")
Next
第一个文本框绑定到雇员列,并将此代码放到其
DataFormat 事件中,但是我发现,如果第一个文本框的文本有变化时,下面的会改变,如是没有变化时,下面的不会改变,也许这个问题只能由贺老师解决了
或者将代码放在按钮中?或是定时器中?
行是行了,有一点看不懂代码
不会吧,你可是狐狸大哥啦~
dim n as integer = tables("表A").position '确定表A当前的行位置
for i as integer = 0 to 4
Forms("窗口1").Controls("TextBox" & i).value = tables("表A")( n+i,"第八列")
'从当前行起连续向下5行的第八列的值分别给5个TextBox (TextBox0、TextBox1、TextBox2、TextBox3、TextBox4)
next